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auiCk LOOK-UP OPERATING INSTRUCTI0f6 

FOR ft QUICK REFERENCE. wOOK UP THE FOLLOWING SECTIONS: 

l.C ABSTRACT 

2.0 REOUIREfCNTS 

M.l LOADING AND OPERATOR ACTION 

5.0 SWITCH OPTIONS 

FOR A nORE COMPLETE EXPLANATION REFER ^0 THE TABLE OF 
CONTENTS BELOW AND THE FOLLOWING DOCUMENT . 
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1 . : flBSTRflCT 

THE RKll LOGIC TESTS CONSIST OF A SERIES OF TESTS 
AinEO AT CHECKING THE BASIC LOGIC OF THE RKll 
CONTROLLER. 

THE LOGIC TESTS CONSISTS OF TUO PARTS. THIS PROGRAM 
IS PART-I AND IT CHECKS ONLY THE DRIVE -INDEPENDENT 
LOGIC OF THE RKll CONTROLLER (SEE SEC. 9-Q). IT 
SHOULD BE NOTED THAT LOGIC TEST-I AND LOGIC TEST-II 
TOGETHER CONSTITUTE A COMPLETE PROGRAM AND HENCE 
BOTH OF THEM SHOULD BE RUN. 

jSED correctly "'HIS PR0:ChM CA.N BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TjUL. 



c.D REQUIREMENTS 

2.1 EQUIPMENT 

H. PDPll UITH CONSOLE TELETYPE. 

B. 8K OF MEMORY 

C. RKll OR RKVll CONTROLLER 

2.2 PRELIMINARY PROGRAMS 
NONE 

2.3 EXECUTION TIME 

ERROR FREE FIRST PASS ON PDP11/2Q WITH CORE MEMCPY 
TAKES APPROXIMATELY ONE MINUTE. CONSIDERABLY LESS 
FOR FASTER MACHINES OR MEMORIES. 



3.0 STARTING ADDRESS 

200 FOR ANY MODE OF OPERATION. NORMAL START UP urti 
ALL SWITCHES DOWN. 

«.D PROGRAM CONTROL MODES & OPERATOR ACTION 

PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACT 11 

■4.1 PAPER TAPE LOADING 

4.1.1 LOAD PROGRAM INTC MEfCRY JSING STANDARD PRCCE01.RE 
FOR .ABS TAPES. 
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4.1.2 PUT THE DRIVES ON 'URT PROT* AND 'LORD* ftS A 
PRECAUTION AGRINST NRLFUNCTIONING. 

4.1.3 LORD ADDRESS 200 

4.1.4 SET SWITCHES IF DESIRED (SEE SEC 5.C IF TESTIMi ON 
SlflULATOR PUT SU 10 UP. 

PRESS START. 

4.1.5 THE PROGRAN IDENTIFIES ITSELF (NAME.flAINDEC NO). 

RKll LOGIC TEST I 
MAINDEC-ll-DZRkJ-E 

4.1.6 THEN THE PROGRAN PROCEEDS WITH TESTI^iG. A"^ THE END 
OF A PASS THE FOLLOWING TYPE-OUT OCCURS 

END PASS t X 

WHERE X= PASS NUMBER (1,2,3 ). CONTROL IS PASSED 

TO THE BEGINNING OF tAe PROiRAM AND RE -EXECUTION 
BEGINS. 

4.1.7 ERROR FREE PASSES OF THE OROGRAN APPEAR AS SHOWN 
BELOW. 

RKll LOGIC TEST I 
MAINDEC-ll-DZRKJ-E 
END PASS i 1 
END PASS t 2 



4.= RKDP DUMP MODE 

4.2.1 THE PROGRAM IS LOADED INTO THE HEMORv 8Y THE RKDP 
MONITOR 

4.2.2 START AS NORMALLY USING SA 200 

4.2.3 THE PROGRAM IDENTIFIES ITSELF (NAME.MmINDEC NO.) AND 
PROCEEDS WITH TESTING. 

■*.3 RKDP CHAIN MODE 

THE PROGRAM IS CHAIN-LOADED FROM THE RKDP PACK. AFTER 
THE PROGRAM IDENTIFIES ITSELF, IT PROCEEDS WITH TESTING. 

4.4 ACTll MODE 

THE PROGRAM IS LOADED BY THE ACTll MONITOR. ON 
STARTING. IT PROCEEDS WITH THE EXECUTION OF THE TES'^S 
mS BEFORE. BUT THE TITLE IS NOT TYPED OUT. 
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SUITCH OPTIONS 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR iI.E. AN Il-'34. 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 
•SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 17£> IB). THE 
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KE^BOARC 
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G' . THE PROGRAM WILL 
RECOGNIZE THE 'CONTROL G' WHENEVER THE PROGRAM ENTERS 
THE SCOPE ROUTINE OR BEGINS A NEW TEST. THE ^ .^^ 

'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
^0 THE PROMPT FROM THE SUITCH ENTRY ROUTINE: 

•SWR = NNNNNN NEW =' 

EACH TIME SWITCH SETTING ARE ENTERED. THE ENTIRE SWITCH REGISTER. .^^ 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED.. 'RJBOU" AND 
•CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SUITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SUITCH REGISTERS, THE 'SOFTWARE' SUnCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL lb SWITCHES IN "WE 
'UP' POSITION. ALL SWITCH REGISTER REFERENCES UI^L BE "^0 THE 
'SOFTWARE' REilSTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
BE FOLLOWED. 

SW<15>=i HALT ON ERROR 

SW<14>=1 LOOP ON TEST 

SU<13>=1 INHIBIT ERROR PRINTOUTS 

SU<12>=1 CYCLE ON ERROR TO THE PREVIOJS 

'SCOPE' STATEMENT 
SU<11>=1 INHIBIT ITERATIONS 

SW<10>=1 TESTING ON SIMULATOR 

sw<aq>=i LOOP on specific error 

SU<08>=1 LOOP ON TEST AS PER SU<D7:Da> 



5.1 SU<15> 



THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER 
TYPING OUT THE ERROR MESSAGE AND PERTINENT 
INFORMATION. PRESSING "CONTINUE" RESTORES NORMAL 
OPERATIOf< OF THE PROGRAM. 



5.2 SU<14> 



THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEINi 
EXECUTED WHEN THE SUITCH IS PUT ON. THIS SWITCH IS 
USED NORtlALLY ALONG UITH SU 15. SEE SEC 8.0. 



5.3 SU <i3> 



THIS SUITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
USED UHEN LOOPING ON TEST iSU 14: OR LOCPING ON 
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ERROR (SU 9). 

S.-» SU <12> 

THIS SWITCH ALLOWS THE PORGRflfl TO CYCLE FROfI THE 
POINT OF ERROR TO THE PREVIOUS SCOPE STfiTEflENT. 

fiND flGfllN. SEE SEC S.O FOR DIFFERENT SCOPE tOOPS 
AVAILABLE. 

s.S SU <11> 

EACH SUBTEST UILL BE EXECUTED ONLY ONCE. NORMALLY 

AFTER THE FIRST PASS, EACH SUBTEST IS ITERATED A 
NUMBER OF TIMES (USUALLY SO. 5 IN SOME CASES). 
SETTING THIS SWITCH INHIBltS ITERATIONS, SO THA' 
QUICK PASSES CAN BE MADE. 

s.b SU ao> 

THIS SWITCH WHEN SET INDICATES THAT TESTING IS BEING 
DONE ON A SIMULATOR. THE SWITCH SHOULD BE PUT JP 
BEFORE START- ING THE PROGRAM. NOTE THAT RKllC IS 
NOT COMPATIBLE WITH THE SIMULATOR. 

5.7 sw <og> 

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
LOOP. NOTE THAT UNLIKE SW12 THE INITIALIZATION OF 
PARAMETERS AT THE BEGINNING OF THE SUBTEST MAY NO' 
BE DONE IN THIS CASE. THIS SWITCH IS HELPFUL WHEN fl 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
DIFFERENT PARAMETERS AND YOU WANT TO SCOPE ON THE 
PARAMETER IN ERROR. (EXAMPLE: RKOA IS BEING WRITTEN 
AND READ BACK WITH COUNT PATTERNS FROM 1 TO 177777. 
PATTERN Sbl IS GIVING ERROR. YOU MIGHT NOT WANT TO 
GO THROUGH THE SbO PATTERNS BEFORE HITTING ERROR ON 
THE SblTH PATTERN. IN THIS CASE SW 9 WILL GIVE YOL 
A SCOPE LOOP ON THE SblTH PATTERN ONLY.) 

5.9 SW <QB> 

THIS SWITCH IS USED TO SELECT A PARTICULAR TEST lAS 
PER SW<00-07>) FOR EXECUTION AND SUBSEQUENT LOOPING. 
THUS IF TEST 15 IS TO BE SELECTED THE SWITCH SETTING 
WOULD BE 000415. IT SHOULD BE NOTED THAT BEFORE 
SELECTING TEST 15. ALL THE PREVIOUS TESTS il-lH) 
UILL BE EXECUTED. 



b.2 SCOPE LOOPS 

^HEPE ARE THREE KINDS OF SCOPE LOOPS AVAILABLE 
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1. LOOPING IS DONE FOR THE ENTIRE 5U8-TES"' 

=. 5U12: LOOPING IS DONE FROfI THE POIN^ OF ERROR 
BfiCK TO THE PREVIOUS 'SCOPE' STfi'EflENT. 

3. SUOq: PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP 
SEE SEC. 5.7 

EXAMPLE: 
TSTl: SCOPE 



INITIftLIZfiTION 
ERROR 1 
ERROR 2 
ERROR 3 
ERROR 4 

TST2: SCOPE 

THE SEQUENCE OF LOOPING FOR DIFFERENT CfiSES IS 
EXPLAINED BELOW. NOTE THAT 'TSTl' AND 'TST2' ARE 
TAGS WHICH DEFINE THE BOUNDARY OF A TEST. '.IN THIS 
CASE TEST 1). TEST 1 STARTS AT 'TSTr ANO ENDS JUST 
BEFORE •TST2'. 

IN THE ILLUSTRATION BELOW — > INDICATES THE POIN' 
FROM WHERE RETURN IS MADE AND LOOPING IS DONE. 

1. ERROR 2 OCCURS. SW 14 SET. 

TSTl. .ERROR 2. . TST2--> TSTl. .ERROR 2. .TST2— 'TSTl. . . 

2. ERROR 2 OCCURS, SW 12 SET. 

TSTl . . .ERROR 2--/ TSTl . . .ERR0R2-->TST1. . . 

3. ERROR 2,3; SW 14 SET. 

TSTl.. ERROR 2.. ERROR 3. .TST2—^ TSTl. .ERROR 2.. ERROR 

3..TST2-->TST1... 

4. ERROR 2.3; SU 12 SET. 

TSTl... ERROR 2-->TSTl . . .ERROR 2— > TSTl 

NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR 
ENCOUNTERED. THE MORE BASIC AND ERROR THE EARLIER 
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED. 
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IN THE ABOVE EXftflPLE NO PART OF THE SUB-TEST 15 
BEING REPEATED USING DIFFERENT PARAMETERS. HENCE I' 

DII^FERENCE BETUEEN SU S AND 12. 
TSTl: SCOPE 

INITIALIZATION 

ERROR 1 

« 

MOV lll.SLPERR :'$LPERR' CONTAINS 

;THE ADDRESS TO LOOP 



IS: 



;BACK ON ERROR- SU 9 



: I 
ERROR 2 I N REPETITIONS 



TST2: SCOPE 



I 



1. SU 12 SET. ERROR 2 OCCURS DURING K.'^H 
REPETITIONS 

TSTl.. 1, 2... K. ERROR 2-->TSTl. .1,2. . .K. ERROR 2-->TSTl.. 

2. SU 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION 
II.. K.. ERROR 2— > IS.. K.. ERROR 2— >l$... 

7.0 PRCGRAM DESCRIPTION 

IN THIS PART OF THE PROGRAM THAT PART OF THE Rkli 
CONTROLLER IS CHECKED UHICH DOES NOT DEPEND ON 
SIGNALS FROM THE DRIVE. THUS A DRIVE IS NOT NEEDED 
FOR THIS TEST. BUT IT SHOULD BE NOTED THAT THE 
PART-II OF THE 'BASIC LOGIC TESTS' MUST BE RUN, IN 
ORDER TO GET A COMPLETE COVERAGE. 

THE TESTS ARE GRADUALLY BUILT UP. CHECKING ^HE MOST 
BASIC AND SIMPLE LOGIC FIRST An6 THEN PROGRESSIVELY 
MORE COMPLEX LOGIC. 

THE FIRST TEST CHECKS THAT ALL RKll REGISTERS CAN BE 
REFERENCED UITHOUT TIMING OUT, THEN THE 
INITIALIZATION LOGIC OF RKll IS CHECKED. TH^N IT IS 
CHECKED THAT ALL REGISTERS CAN BE URITTEN fiND READ 
CORRECTLY, BY FLOATING A T AND THEN USING A COUNT 
PATTERN. THEN IT IS CHECKED THAT THE RKll REGISTERS 
CAN BE CLEARED USING CONTROL RESET AND RESET (BUS 
INIT). FINALLY. THE UORD AND BYTE ADDRESSING LOGIC 
OF RKll IS CHECKED TO SEE THAT EACH REGISTER IS 
UNIQUELY ADDRESSED. 



KOI 

r;-ii-fI?'^'-E. "kU MSIC LMIC TEST 1 HSCYU 30il04ti Ofc-JUN-r? m:MO PSIE IZ 



S.O ERROR REPORTING 

THE ERROR TfiBLE STORTING AT SERRTB CONTAINS 
IffFORfWTION PERTAINING TO EVERY ERROR THAT CAN 

OCCUR. EACH ITEM IN THE TABLE CONSISTS OF FOUR 
ENTRIES. 

A. EM - THIS IS A POINTER TO THE ERROR MESSAGE TO 

BE TYPED OUT WHEN THE ERROR OCCURS. 

B. DH - THIS IS A POINTER TO THE DATA HEADER ^0 BE 

TYPED OUT. 

C. D7 - THIS IS A POINTER TO THE DATA WHICH IS TO 

BE TYPED TYPED OUT UNDER THE HEADERS. 

D. C - THIS IS A TERMINATOR SIGNIFYING THE END OF 
THE ITEM. 

THE ERROR CALL IS AN EMT INSTRUCTION WITH ITS LOWER 
BYTE ENCODED TO INDICATE THE ERROR NUMBER. THUS 
"ERROR r WOULD BE (EMT+1) IE 104001. 

EVERY ERROR CORRESPONDS TO AN ITEM IN THE EPPOP 
TABLE. THUS "ERROR 14" WOULD CORRESPOND TO ITEM IM. 
AS FAR AS POSSIBLE. THE ERROR MESSAGES HAVE BEEN 
KEPT SHORT, BUT CLARITY IS NOT SACRIFICED FOR 
BREVITY, itePITE OF THIS, IF THE USER FINDS A NEED. 
HE CAN LOOK UP THE ENTIRE ERROR MESSAGE IN THE ERROA 
ITEMS TABLE FOUND IN THE BEGINNING OF THE LISTINGS. 
THUS FOR "ERROR 14", "ITEM 14" IN THE ITEM TABLE CAN 
BE LOOKED UP. WHEN THE ERROR INSTRUCTION IS 
EXECUTED A TRAP OCCURS TO THE ERROR HANDLER LOCATED 
AT SERROR WHICH PROCESSES THE ERROR CALL. SEE SEC 
12.3 



9.D ERROR INTERPRETATION 

WHENEVER AN ERROR MESSAGE IS PRINTED OUT. ALL 
REGISTERS AND OTHER DATA PERTAINING TO THE ERROR ARE 
ALSO GIVEN. RKOS. RKER...RKBA INDICATE THE CONTENTS 
OF THE CORRESPOrfi)lr« REGISTERS AT THE TIME OF ERROR. 

EVERY ERROR MESSAGE CONTAINS A PC. THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 
CALL IS LOCATED. THE ERROR MESSAGE, BECAUSE OF 
PRACTICAL CONSIDERATIONS IS MADE SHORT AND 
MEANINGFUL. THE USER IS ADVISED fO LOOK UP THE PC 
IN THE PROGRAM LISTING. WHERE HE WILL FIND MORE 
INFORMATION ABOUT THE £RR6r. IN flANY INSTANCES. A 
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR 
REPORT. A LITTLE DELIBERAT'ION AND CAREFUL 
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EXflfllNfiTIOM OF THE DflTfl GIVEN WILL BE CERTAINLY VERY 
HELPFUL IN PINPOINTING THE FAULT. A BRIEF 

EXPLANATION OF WHAT IS BEING CHECKED IN THE SUBTEST 
IS GIVEN AT THE BEGINNING OF EVERY SUBTEST. ALL THE 
NUMBERS GIVEN UITH ERROR MESSAGES ARE IN OCTAL. 



lO.O HANDLERS AND COfinON ROUTINES 

THE COMflONLY USED ROUTINES USED IN THE PROGRAM ARE 
CALLED IN TUO WAYS. 

A. AS A SUBROUTINE THROUGH 'JSR' CALL 

B. THROUGH A 'TRAP' HANDLER 

ID.: TRAP HANDLER 

MANY COMMONLY USED ROUTINES IN THE PROGRAM ARE 
CALLED USING THE TRAP INSTRUCTION AND THE 'TRAP' 
HANDLER. THE LOUER BYTE OF THE TRAP INSTRUCTION IS 
ENCODED DIFFERENTLY FOR DIFFERENCT ROUTINES. THE 
TRAP HANDLER IS LOCATED AT 'STRAP'. UHEN A CALL FOR 
A ROUTINE IS EXECUTED. A TRAP OCCURS TO THE HANDLER 
AT 'STRAP'. THE HANDLER PICKS UP THE LOWER BYTE OF 
THE -CALL INSTRUCTION" AND USES IT TO FORM THE 
STARTING ADDRESS OF THE ROUTINE TO GO TO FOR 
SERVICE. 



10. £ SCOPE HANDLER . 4 

THE 'lOT' TRAP IS USED BY THE 'SCOPE' STATEMENT. 
UHEN 'SCOPE' IS EXECUTED. AN lOT TRAP OCCURS TO 
MEMORY LOCATION 'SSCOPE'. THE SCOPE HANDLER STARTS 
AT SSCOPE. DEPENDING ON THE SWITCH SETTINGS THE 
HANDLER DECIDES TO LOOP ON TEXT. INHIBIT ITERATIONS 
ETC. THERE ARE CERTAIN POINTER^ AND FLAGS WHICH ARE 
ADJUSTED. THUS, IT IS NOT ADVISABLE TO START THE 
PROGRAM AT ANY GIVEN LOCATION SINCE THE VARIOUS 
POINTERS AND FLAGS MAY NOT BE CORRECTLY ADJUSTED. 



10.3 ERROR HANDLER 

AN EMT TRAP INSTRUCTION IS USED BY THE ERROR CALL. 
THE LOWER BYTE IS ENCODED TO GIVE DIFFERENT ERROR 
CALLS. (EX: ERROR 1 = 104000+1: ERROR lb = 
10400Q+lb). WHEN THE ERROR STATEMENt IS EXECUTED, A 
TRAP OCCURS TO MEMORY LOCATION 'SERROR'. THE ERROR 
HANDLER IS LOCATED AT ' SERROR' . THE HANDLER FORMS 
THE POINTER TO ERROR TABLE. WHICH IS USED IF AN 
ERROR MESSAGE IS TO BE TYf»ED OUT. DEPENDING ON THE 
SWITCH SETTINGS, A DECISION ABOUT HALTING ON ERPOP. 
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INHIBITING TYPEOUT, LOOPING OH ERROR ETC. IS flflOE. 
'KRRTYP*. 



1C.4 CONTROL RESET ROUTINE 

THE CALL FOR THIS ROUTINE IS "CNT. RESET" ftND IS «N 
ENCODED 'TRAP' INSTRUCTION. WHEN "CNT.RESET" IS 
EXECUTED THE CONTROL RESEt ROUTINE STARTING AT 
"CN.RST" IS ENTERED. A CONTROL RESET IS ISSUED AND 
THE PROGRAN WAITS TILL THE CONTROL READY SETS, ON 
UHICH THE ROUTINE IS EXITED. IF CONTROL READY DOES 
NOT SET WITHIN A CERTAIN TIME AN ERROR IS REPORTED. 
THE PC TYPED OUT IS THE LOCATION WHERE THE 
"CNT.RESET" CALL IS LOCATED. THE WAITING TIME IS 
2.8 MS FOR 11/20 AND SbO US FOR 11/45 WITH BIPOLAR 
MEMORY. 

ICS CONTROL READY ROUTINE 

THIS ROUTINE IS CALLED BY "CNT.RDY" (AN ENCODED 
'TRAP* INSTRUCTION) AND IS LOCATED AT "CN.RDY". THE 
ROUTINE WAITS FOR THE CONTROL READY TO SET AND WHEN 
IT DOES, EXITS OUT. IF CONTROL READY DOES NOT SET 
WITHIN A SPECIFIED TIME AN ERROR MESSAGE IS GIVEN 

CNTRL RDY DIDN'T SET 

PC = XXXXXX RKCS = YYYYYY 

THE PC IS THE LOCATION AT WHICH THE "CNT.RDY" CALL 
IS LOCATED. THE WAITING TIME IS '34S MS FOR 11/20 
AND 189 MS FOR 11/45 WITH BIPOLAR MEMORY. 



10. b TIME DELAY ROUTINE 

THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE 
CALL IS DELAY .N WHERE N=l TO 177777 (OCTAL) TIME 
DELAY PROVIDED= 7.5 TIMES( X ) N MICRO SECS FOR 
11/20. 1.5N US FOR 11/45 (N CONVERTED TO DECIMAL 
BEFORE COMPUTING DELAY) IF THE USER WANTS TO CHANGE 
THE DELAY AT ANY POINT IT CAN BE DONE BY SIMPLY 
CHANGING VARIABLE 'N*. 



10.7 OTHER ROUTINES 

THERE ARE OTHER COMMONLY USED ROUTINES AS LISTED | 
BELOW. 

JTYPE: 

TYPE ROUTINE FOR TYPING OUT ASCII STRINGS. 
LOCATED AT "JTYPE" 
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CALLED BY -TYPE" 

ITYPOC: 

ROUTINE FOR TYPING OUT OCTAL NUMBERS. 
LOCATED AT "STYPOC" 
CALLED BY -TYPOC" 

JTYPDS: 

ROUTINE FOR TYPING OUT DECIMAL NUMBERS. 
LOCATED AT -JTYPDS" 
CALLED BY "TYPDS" 

SERRTYP ■ 

ROUTINE'FOR typing out error MESSAGES. 
LOCATED AT lERRTYP 
CALLED BY "JSR JERRTYP" 

JPWRDN.JPURUP: , 
ROUTINt FOR HANDLING POUER FAILURE/POWER UP. 
LOCATED AT SPURDN . IPURUP 
5PURFL, CALLED WHEN THERE IS fi POUER FAILURE. 
SPURUP, CALLED UHEN THERE IS A POUER UP. 

11.0 UNEXPECTED TIMEOUTS AND RKll INTERRUPTS 

UHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT UHICH 
TIME OUT OCCURED IS TYPED OUT AND THE PROGRAM HALTS. 
IF IT IS INTACT, IT CAN BE RESTARTED BY PRESSING 
CONTINUE. 

IF AN UNEXPECTED RKll INTERRUPTIOCBURS THE PROGRAM 
TYPES OUT THE PC AT UHICH THE INTERRUPT CAME IN AND 
THEN HALTS. PRESSING CONTINUE UOULD RESTART THE 
PROGRAM FROM BEGINING. SU 9- LOOPING CAPABILITY IS 
PROVIDED AS A TROUBLE SHOOTING AID. 



IS.O QUICK VERIFYING MODE 



THE FIRST PASS OF THE PROGRAM IS A QUICK VERIFYING 

MODE. ALL THE TESTS ARE DONE ONLY ONCE. ON 

SUBSEQUENT PASSES THE TESTS ARE ITERATED (NORMALLY 

50 TIMES, 5 IN SOME CASES). THUS THE FIRST PASS 

TAKES A SHORTER TIME TO COMPLETE, UHEREAS SUBSEQUENT 
PASSES TAKE MORE TIME. 
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&73 
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&78 
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b94 
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s36 
&B7 
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£95 
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725 
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712 
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712 
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719 

722 
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722 
723 
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HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

CYCLE ON ERROR TO PREVIOUS 'SCOPE' 5'A'£-E^' 

INHIBIT ITERATIONS 

TESTING ON SIMULATOR 

LOOP ON ERROR 

LOOP ON TEST IN SWPt7:2' 



♦PROGRAM REVISED BY TOM SAWYER. MARCH 197£ 
♦REVISED BY CHUCK HESS, AUGUST 197£ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦#♦«♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦#*#«♦#♦♦♦♦♦##*♦♦♦♦♦♦ 

YOU ARE ADVISED TO READ TJ€ DOCUMENT BEFORE USING THIS PROGRAM. 

ON GETTING AN ERROR REFER TO THE LISTINGS AT THE PC POINTED 
OUT IN THE ERROR MESSAGE. ADJACENT ERROR MESSAGES IF FOLLOWED 
CAREFULLY COULD LEAD TO AN EASY PINPOINTING OF THE FAULT 

♦♦♦♦♦♦♦♦«♦♦««♦#«♦♦♦♦#♦»♦♦♦«#**♦♦»♦»»«»♦♦*♦♦»♦♦»»»♦»♦*♦»♦♦*♦♦♦♦♦♦ 

SBTTL BASIC DEFINITIONS 

: ♦INITIAL ADDRESS OF THE STACK POINTER ♦♦♦ 1130 ♦♦♦ 
STACK"" HOC 

.EOUIV EMT. ERROR BASIC DEFINITION OF ERROR CALL 

.EOUIV lOT.SCOPE ;;BASIC DEFINITION OF SCOPE CAll 

♦MISCELLANEOUS DEFINriONS 



ftT= 
LF= 
CR= 
CPLF= 
PS= 
.EQUIV 



11 
12 
15 
200 
17777£ 
P5.PSU 



jCODE FOR HORIZONTAL TAB 
;CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
iCODE FOR CARRIAGE RETURN-.INE ^EEC 
: PROCESSOR STATJS WORD 



•C-Ii-DZRKJ-E. RKU BASIC LOGIC TEST 1 



•2b 



T23 
730 

73; 

73c 
733 
-3H 
73S 
'3fe 
'37 
73S 
739 
7'*: 
-a* 



7>t3 
744 

7-»7 
-4S 
7'*9 
75- 

' 3l 

752 
753 
75** 
755 
756 
757 
758 
759 
7fc3 

7fc: 

'b2 
7b3 
7b-» 
7b5 
7e6 
757 
7fee 

7cg 



7-- 



'7t- 



17777M 
177772 
177570 
177570 



30000C 
OOOOCl 



OOOOOH 
000005 
OOOOOb 
000007 
00000b 
OO0QC7 



oooooc 

OOOOMO 
pnn 1 nn 

OQcmc 

XC2C0 
0C02'*0 
200300 



100000 
QMOOOQ 
020000 
010000 
304000 
002000 
001000 
000400 
000200 
XOIOC 
000040 
000C2C 
OOOCIC 
000004 
000002 



C.Q2 

rWCYU 30 1 104b) Ob-JUN-77 14:40 PftGE 
BASIC DEFINITIONS 



15 



STKLflTs 177774 

PIRQs 177772 

DSUR= 177570 

DDISPs 177570 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUE5' PE 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



tGENERAL PURPOSE REGISTER DEriNlTIONS 



Rl= 
R2= 
R3= 
R4s 
R5= 
Rb= 
R7= 
SP= 
PCs 



.0 
•'.1 
V.2 
V.3 
•/.4 
•/.5 

» ^ 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GErCRAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTEP 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAn COUNTER 



♦PRIORITY LEVEw DEFINITIONS 



^R0= 
PR1= 
PR2= 
PR3s 
PR4= 
PR5= 
PPb= 
PR7= 



0 
40 
100 
140 
20C 
240 
300 
340 



PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEl 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL M 
PRIORITY LEVEL 5 
PRIORITY LEVEL b 
PRIORITY LEVEu 7 



♦-SWITCH REGISTER" SWITCH DEFINITIONS 



^W15 
SW14= 
SW13= 
SU12= 
SW11 = 
SW10= 
SW0<3= 
SWQ8= 
SUC7= 
SWOb= 
SW05: 
SU04r 

SW03= 
3U02= 
SUOls 

swoc= 

.EQUIV 
.EQUIV 
.EQUIV 
.EOUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 



100000 
40000 
20000 
10000 
4000 
2000 
lOCO 

400 

200 

100 

40 

20 

10 

4 

2 

1 

SW0S.SU9 
SU08,SW8 
SW07,SW7 
SWOb.SUb 
SU05.SU5 
Sk04.SW4 
51403, SU3 
5W02,3U2 
SWOl.SWl 
5U00.5U0 



-.♦DA'S Br DEFINITIONS iBroO 'Z BI'lS 



D02 



'a- 

-ac 

70" 
"9S 
"99 

'96 
"go 

B3C 
3C1 
922 

923 

925 
936 

929 
3-3 

si: 

91E 

317 
BIB 
919 
922 
921 
£22 
923 
92M 
925 
B2& 
927 
929 
929 
930 
921 
932 

£35 
53t 



:9-flPfi-r' 3*9: i-^ 

120000 
CMOOCO 
32X00 
312000 
30M0OC 
3C200C 
XIOOO 
OCOMOC 
X02X 
XCIX 
0M040 
000022 
XX12 
3CX0M 
300022 

30C0C: 



: "ES' 1 nfiCUi 30il0Hb) Ofc-JUN-77 
BftSIC DEFINITIONS 



14:M0 PhGE Ifc 



CCOQOH 
300013 
0C0014 
000014 
00C2H 
Q00C2C 
3QC02M 
000030 
2C0C3H 
QOQOfcC 
00006H 
000240 



jGOcnc 



Q0G174 
00C174 OOOOQC 
002l7fc 002000 

302222 000127 001542 



TiS= 
T14= 
T13s 
^12= 
Tils 
T10= 
TOS= 
T08= 
T07= 
TOb= 
TOS= 
T04s 
T03= 
T02= 
TOi = 
T00= 
EQUIV 
.EQUIV 
.EQUIV 
•EOUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 



:*Bft5IC 

tRRVEC= 

RESVEC= 

T9ITVEC: 

TRTVEC= 

BPTVEC= 

IOTVEC= 

PURVEC= 

EriTVEC= 

TRflPVEC: 

TKVEC= 

TPVEC= 

PIRQVEC: 

.SBTTL 



1X000 



4QQ00 
20Q0Q 
10000 



4X0 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 

BiToq.arg 

BIT0B.9IT8 
BITQ7.BIT7 

BITOb.BITb 
BITOS.BITS 
BIT04.BIT4 
BIT03.BIT3 
BIT02,BIT2 
BIT01.8IT1 
BI'OO.BITO 



"CPU 
4 
10 
14 
14 
14 
20 
24 
30 
34 
60 
64 
240 

TRAP CATCHER 

,=0 



RAP VECTOR ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRJCTIONS 
"T- BIT 
TRACE TRAP 

BREAKPOINT TRAP CBPTj 
INPUT/OUTPUT TRAP (lOT) ttSCOPE** 
POUER FAIL 

EMULATOR TRAP (EHT; #»ERROR#» 
-TRAP- TRAP 
TTY KEYBOARD VECTOR 
:TTY PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 



:«ALL UNUSED LOCATIONS FROM 4 - 77fc CONTAIN A ".■f2.hALT" 
:*SEOUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
:»LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 

DISPREG: .WORD 0 ; :SOFTUARE DISPLAY REGISTER 

5UREG: .UORD 0 ; ;SOFTUARE SWITCH REGISTER 

.SBTTL STARTING ADDRESS (ES) 

JMP SiSTART ;;JUMF TO STARTING ADDRESS OF PROGRAM 
.SBTTL ACT 11 HOOKS 

; •###♦♦♦***#«#**»»♦*•»*##♦♦«#*»#*»#***»*»♦#»*«♦♦*»♦»*»*♦»»♦♦♦♦♦♦♦ 

:kOKS REQUIRED Br" ACTll 

ISVPC=. :SAVE K 



ED2 

-CZRkJ-E. RKU BmSIC logic test l f1«CYll 30aOHb» 06-JUN-77 iH:MO PftGE i7 

zrflKjE.pi: i9-«pR-7r os:m actii hooks 

938 0030% .2% 

SENgfiO ::1)SET LOC.Hb TO hODRESS op IE'Ch: I'. .S£:c 

9^: ::c:252 aOGOOO !uORO O ;:2)5ET LOC.52 tc zepc 

3-*2 000204 .rISVPC :; RESTORE PC 



: :-E. ii sasi: ^oiic 



TEST 1 fIfiCYli 3C(lOSb) 
COnriON TAGS 



Fua 



Ob-JUN-77 14:40 PAGE IB 



944 

345 
946 
9^*7 
949 
949 
95C 
851 
952 

953 
ac4 

§55 
BSb 
957 
958 
959 
9bC 
9&I 
9S2 
9S3 
8&4 
865 
3bb 
367 
968 
969 
870 
871 
872 
973 
974 
975 
976 
9^7 
379 
3~9 

age 

391 
382 
985 
834 
985 
386 
387 
388 
389 
39C 
991 
592 

394 
295 
596 



M 4 



COllOO 
001100 
001102 
001103 
001104 
001106 
001110 
0C1112 
001114 
X1115 
001116 
001120 
001122 
0C112M 
001126 
001130 
001132 
001134 
301135 
001136 
001140 
001142 
001144 
001146 
001150 

x::52 

301154 
0CI155 
001156 
301157 
XllbO 

30i:fe2 
301164 
001166 
301170 
Xil72 
001174 
001 176 

oo:2X 

001202 
X1204 
Xi236 
001210 
001212 

"5 



QCllOC 

OOOOX 

000 
000 

ocoooo 
oocooo 

000000 
000000 
000 
001 
000000 
OOOQX 

oooooc 

000000 
000000 
000000 

ocoooo 

000 
000 
30C0X 
177570 
177570 
177560 
177562 
177564 
177566 
000 
002 
312 
200 
OCOOOO 

OOOOOC 
OOOOOC 
000000 
000000 
OOOOOC 
OOOOOC 

oocooo 

OOOOOC 
00X00 
XQOX 

xococ 

OOOOOC 



.SBTTL COMMON TOGS 

• 'innmiilt********************************************************* 

iilHIS TftBLE CONTftlNS VftRTjJS COflMON STORAGE LOCfiTIOHS 
:*USED IN THE PROGRAM. 



""3 "4 MCI' 



ICMTAG: 

SPASS: 

STSTNH: 

SERFLG: 

SICNT: 

SLPAOR 

SLPERR 

SERTTL 

f ITEMS 

lERMAX 

JERRPC 

SGDAOR 

SBDAOR 

SGOOAT 

SBDOAT 



SAUTOB: 
SINTAG: 

SUR: 
DISPLAY 
ITKS 
STKB 
JTPS 
JTPB 
SNULL: 
SFILLS 
SFIlLC 
SrPFLG 
IREGAO 

SREGO 
SREGl 
SREG2 
SREG3 
SREG4 
SREG5 
SREG6 
$PEG7 
SREGIO 
SREGl 1 
STIMES 
SESCAPE 
S0UE5: 
SCRLF: 
ILF: 

iitt*** 



.=1100 

.UORO 0 

.BYTE 0 

.BYTE 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.BYTE 0 

.BYTE 1 

.UORO 0 

.UORO 0 

.UOPO 0 

.UORD 0 

.UORO C 

.UORO 0 

.UORO 0 

.BYTE 0 

.BYTE 0 

.UORD 0 

.UORO OSUR 

.UORO DDISP 
177560 
177562 
177564 
177566 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.UORD 



0 
o 

12 
n 



.WORD 
.UORO 
.UORO 
.UORO 
.UORO 
.UORD 
.UORO 
.UORC 
.UORO C 
.UORD 0 
0 
:0 

.ASCII 
.ASCII 
.ASCI2 



0 
3 
0 
0 

0 

n 

w 

3 

C 



15> 

12' 



********************* 

.hsciz -15' 12 :n' 



START OF COMMON TAGS 
CONTAINS PASS COUNT 
CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION CCUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX, ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTPUCTSN 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF 'BAD* DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD' DATA 
RESERVED— NOT TO BE USED 

;; AUTOMATIC MODE INDICATOR 
! I INTERRUPT MODE INDICATOR 

ADDRESS OF SUITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBO STATUS 
TTY KBO BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FIwLS 
CONTAINS • OF FILLER CHARACTERS RE3-IREC 
INSERT FILL CHARS. AFTER A "LINE »^EE3" 
"TERMINAL AVAILABLE- FLAG (BIT<07>: 
CONTAINS THE ADDRESS FROM 
UHICH (SREGO) UAS OBTAINED 
CONTAINS (($REGAD)+0) 
CONTAINS ((SfiEGAD)+2) 
CONTAINS ((SREGflD)*4) 
CONTAINS ((SREGAD)->-6i 
CONTAINS ((SREGA0)*10) 
CONTAINS ((SREGA0)*i2^ 
CONTAINS ((SREGAD)-^14} 
CONTAINS ((SREGAD)*1E)} 
CONTAINS ((SREGAD)+20) 
CONTAINS ((SREGA0)+22j 
MAX. NUMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
QUESTION MARK 
CARRIAGE RETJRN 
LINE FEED 

*»***»*«*###***#*f *♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

P:v DIDN'T SE'' 



9:2 

9C3 

9C5 
9Cb 
9-"" 
9C8 
92S 
9iC 
911 
912 
913 
914 
915 
91£> 
917 
918 
911 
92C 
9el 

925 
926 
927 
929 
929 
93C 
931 
932 



001244 
0012% 
001250 
0012S2 
001254 
001256 
00:2&0 



177400 
177402 
177404 
177408 
177410 
177412 
17741b 



0012b2 OQOOOC 
0012b4 CCOCQG 
0Q12bb 00020c 



OCI2; 



39:14 



:C:==H 042122 020131 

:::232 csrios 052047 

::-34: 252105 000 

201244 



344504 
051443 



33vl34fe, 



C0'*f1Ch TAGS 



3b-JcN-77 14:40 



PfiGE 19 



.EVEN 
RKll REGISTERS 

IF FOR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROf^ THESE 
iGIVEN BELOU). THE CONTENTS OF THE APPROPRIATE POINTERS SHOULC 3£ 
nOOIFIEO SO tAaT the correct ADDRESS IS USED. 





.EVEN 


RKDS: 


177400 


RKER: 


177402 


RkCS: 


177404 


RKUC: 


17740b 


RKBA: 


177410 


RKDA: 


177412 
17741b 


RKDB: 



:TAGS and general DATA AREA 



FTITLE: 0 
TIMER: 0 
RKPRI: 200 



Rk.VEC: 220 



FLAG FOR PRINTING PROGRAM -^ITLE 
TIMER REGISTER 

CONTAINS THE CPU LEVEL AT UHICH 
RKll NORMALLY INTERRUPTS. THIS UORD 
SHOULD BE CHANGED IF RKll IS DESINGfiTEC 
A BR LEVEL OTHER THAN 5. E.G. IF IT IS CHANGE: 
TO b. THIS UORD SHOULD BE CHANGED TO 24C. 
CONTAINS THE NORMAL VECTOR ADDRESS TO UHICr 
RKll INTERRUPTS. IF THIS IS NOT SO. CHANGE 
THIS UORD '0 CONTAIN MODIFIED VECTOR A3:cE==. 



HOE' 

ImCYH 32.10Hb, 0t>-:UN-77 :*4:4C PfiiE 22 
EP90R PjlNT£C 'hBlE 

.5BTTL ERROR POINTER TABLE 

•THIS TOBlE contains the INrORflfiTIGN FOR EfiCH ERROR THAT CAN 
tT« TNCORfWTION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
roCATIONlITEHB. THIS NUrfiER INDICATES WHICH ITEM IN THE TABLE 1= 
JnCTE • ^^'^^fp SITEMB IS 0 THE ONLY PERTINENT DfiTA IS 'lEPP''; . 
InCTK; each ITEM IN THE TABLE CONTAINS 4 POINTERS E'e^A:'.£: 

♦ En :: POINTS TO THE ERROR MESSAGE 

♦ DH : -.POINTS ^0 THE DATA HEADER 
« DT POINTS TO THE DATA ^ , 
ft DF POINTS TO THE DATA FCRMfi' 

iERR^B: 



▼wr PRBnR ITFM5 TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES 
JSED IN TH S program' AN ERROR CALVIN THE PROGRAM CORRESPONDS 
-HE ITEM NUMBER IN THE ERROR TABLE. THUS 'ERROR 1 IN HE 

PROGRAM CORRESPOf€S TO 'ITtM 1' IN THE ERROR TABLE. _ , 
•EMMI- IS THE POINTER TO THE ERROR MESSAGE WHICH UILLK^^YPE: 
OUT IN CaIe THAT ERROR WERE TO OCCUR. THUS FOP 'ERROR T THE EPOCP 

W I^HE^^fo^J^tR^o'lMEMii SSiin WILL BE 'VPE: 3-' 

IMMEDIATELY AFTER THE ERROR MESSAGE. , ^ 

•DTMl- SERVES AS A POINTER TO THE MEMORY LCCATIONS WHERE 

THE INFORMATION RELEVANT TO THE ERROR TYPE OU'S (LIKE PC. .-NTENTc 

OF RKCS ETC. ) WILL BE PICKED UP FROM. 

THE LAST ROW CONTAINING '0' SERVES AS fi TERMINATOR. 

IF^0n''p5nnING THIS PROGRAM A TIMEOUT WEPE TO OCCUR ON ADDRESSING OkD: 

:774C0)? BECAUSE OF SOME FAUL\ THE FC^OUI.NG TYPEOL'T WOULD 
OCCuR ON THE TELETYPE. 

TIME OUT ON RKli REG 

PC REG 
tllltl 177400 

NOTE THAT lltllt WOULD BE THE ACTUAL PC WHERE 'ERROR 1' IS .OCA^E:. 

THE ERROR HANDLER IS LOCATED AT 'SERROR'. THE ERROR CALL IS AN 
^SItRUCTIONWITH ITS LOWER BYTE ENCODED TO PROVIDE INDEXING >E 
ITEMS IN THE ERROR TABLE. 
"HUS -ERROR r IS 104001 

•ERROR 12b' IS 10412b ETC. 



:EPb:P rSMS taBlE 



:-::-:;:rk:-e. hki basic logi 



9% 

99S 
9% 
997 
996 
999 
20C 
2Qi 
302 
X3 
004 
DOS 



008 
0C9 

31D 

c:: 

212 

Z13 

::4 
3:5 

316 

017 

n • a 
wiC 

319 
020 
021 
022 
1023 
324 
025 
026 
027 
026 
029 
C30 
03: 
032 
333 
034 

338 
339 
342 

341 

342 
343 
:"»4 




851I74 8i?i% 

331276 3114^ 
3C:32C OOOOX 



01C372 
311566 
011504 
OOOQCO 



012415 
011643 
011504 
00X00 



010433 
011615 
011504 
OOOOX 



010475 
011672 
311476 
OOOOCC 



010531 
011670 
011476 
OOOOOC 



010607 
012221 
011534 
X0C33 



001312 
001314 
X1316 
X1322 



301322 
001324 
X1326 
001330 



X1332 
X1334 
X1336 
001340 



X1342 
X1344 
X13% 
X1350 



X1352 
X13S4 

X136C 



301362 013656 
X1364 011566 
331366 311534 



102 

; 30 a 046- O6-JUN-77 14:40 
POINTER TABLE 



PA^E 21 



1 

Efll 
OHl 
DTI 

C 



"'iriE OUT ON RKIl PEi 
PC REG 
lERRPC IREGC 



Ef12 
DH2 
DT2 
0 



REGISTER NOT CLEARED 
PC REGADD RECV: 
lERRPC SREGO SREGl 



£"13 
DH3 
DT2 
0 



RkCS ERROR 

PC UROTE READ 

SERRPC SPEGO iREGl 



EflM 
0H4 

DT2 
0 



RKCS ERROR-ON UhlilNG READ CNLV BITS 
PC EXPCT RECVC 
lERRPC IREG? «REG1 



EfIS 
DH5 
OTl 
0 



BUS INIT DID NOT CLEAR RKCS 
PC RECVD 
iERRPC SREGO 



En6 

DHS 
DTI 
n 



•CNTRL RESET* DIDN'T CwEAR RKCS. ON SEEING GO 
PC RECVD 
SERRPC SREGO 



EM7 

Dh30 

DT26 



n 



•CNTRL RDV DIDN'T SET AFTER CONTROL RESE' 
PC RKCS RKER RKD5 
SERRPC SREGO SREGl SREG2 



10 

£11: 
DH2 
DT2 
G 



REGISTER NOT CLEARED 
PC REGADD RECVD 
SERRPC SREGO SREGl 



:: TEST I 





1064 
lObS 
lObb 
1067 
1G68 
1369 

:C70 

lj71 
1G72 
IQ73 
107M 
1075 
1076 
1Q77 
1078 
1079 
1080 
1081 
1082 
1083 
:08H 
1085 



1087 
1089 
1089 
109C 
1091 
1092 
1093 
109H 
1095 
1096 
1297 

* naA 

1099 



sens 

ooi-(a6 

001410 



1412 
1414 

QG1416 

001420 



001422 
001424 
001426 
001430 



001432 
001434 
X1436 
00144D 



001442 
0C1444 
0Gli46 
00145C 



X1452 
Xi454 
001456 
X1460 



X1462 
X1464 
Xi466 
X147C 



310753 
011504 

ooxx 



mm 

C115X 

xoooc 



Q1C7 
0117! 
011504 
XOOX 



Q1D731 
011566 
011504 

XXX 



010773 
011706 
0U5C4 
OQOCOG 



011321 
012107 
011534 
XOOX 



011006 
011566 
011504 
000000 



011042 
011740 
011514 
0C202C 



•.ITEM 11 



•JUN- 



JOiE 

" i4:4C 



22 



;ITEf1 



0 

12 

Ef143 
0H21 
DT21 
0 



:ITEri 13 



Ef1l3 
OHU 
DT2 
0 



:ITEn 14 



EM14 
0H2 
DT2 
0 



:ITEf1 15 



Ef115 
DHli 
DT2 
0 



; ITEM 16 



En26 
0H26 
0T26 
0 

;ITEn 17 

Ef117 

DH2 

DT2 

0 

lITEM 20 

En20 
jH20 
DT20 
0 



;RKUC ERROR 
i PC URC 



OTE 

ISERRPC SREGO 



REhD 
iREGl 



^EXPECTED PKll INTERRUPT 



SERRPC 



RKBR ERROR 
PC UROT 
SERRPC SREGO 



READ 
SREGl 



:CNTRL RESET DID NOT CLEfifi REGISTER 
:PC REGADD RECVD 
SERRPC SREGO SREGl 



RKOA ERROR 

PC UROTE READ 

SERRPC SREX SREGl 



RKCS ALTERERED ON CLEftRING IREG-BYJE: 
PC REG-BYTE (RKCS) EXP fRKCS)RECVD 
SERRPC SREGO SREGl SREG2 



BUS INIT DIDN'T CLEAR REGISTER 
PC REGfiOO RECVD 
SERRPC SREGO SREGl 



: ADDRESSING ERROR-TRIED TO ADDRESS PEGl. b«T RE«c 
PC REGl REG2 iREGl) (RE92) 
SERRPC SREGO SREGl SREG2 SREa3 



:C TEST 1 



77 m:40 PACE 23 




1127 
1128 
1128 
1130 

1133 
1134 
113S 
113& 
1137 
1138 
113S 
IIHC 
1141 
1142 
1143 
1144 

1145 
1146 
1147 
1148 

1149 
1150 
1151 
1152 
1153 
1154 
1155 



001526 
001530 



001532 
0C1534 
001536 
001540 



001?44 
001550 
001552 
001556 
001560 

1564 
1572 
001600 
001606 

001630 



011156 

mm 

000000 



011514 

xoooo 



011266 
012061 
011504 
OOOOOC 



001542 000005 



;ITEn 21 



012737 
012737 
012737 
012737 

012737 

WS 



;IEH 



:ITEH 



En27 
DH27 
gT20 



:ITEM 22 



: TRIED TO CLEAR 'REG-BYTE*. CHANCED •REC-8YT2' 
PC REC-BYTl RE6-BYT2 BYT2-EXPCT 

:SERRPC SREGO SREGl SREG2 



;DID NOT CLEAR RKCS LO BYTE 



BfT2-RE:vt 
SPEG3 



;DID NOT CLEAR RKCS HI BYTE 



:SERRPC SPEGO SREGl 



HANGED • REGIS* 

CREG.RECVD 

tREG2 1PEG3 



:ITEf1 25 



En2S 
DH25 
DT2 
0 



RESET 



: FAILED TO CLEAR 'REG-BYTE' 
;PC REG-BYTE RECVD 
.■SERRPC SREGO SREGl 



INITIALIZE THE COflNON TAGS 



CLEAR THE BUS 



012706 001 iOO 
005026 

022706 001140 
001374 

012706 001100 



005642 
000340 
006114 
000340 



34C 
010154 



000020 
000022 
000030 
000032 

000024 
000026 



START: 

THE-C«l.^ripTW);SR5»j^ ^^^^^.^ ^ 

I ; CLEAR nENORY LOCATION 

:;LOOP BACK IF NO 
1 1 SETUP THE STACK POINTER 

rOT VECTOR FOR SCOPE ROUTINE 



MOV •$CI1TflG.R6 

CLR 'R6)* 

CriP •SUR,R6 :;DCN£' 

ONE .-6 

MOV ISTACK.SP 



;: INITIALIZE A FEU VECtORS 
MOV - 
MOV 
MOV 
MOV 



MOV 
MOV 
MOV 
MOV 
CLP 



•S5C0PE.3II0TVEC ::IOT VEC 
i340.a»l0TVEC*2 ;; LEVEL 7 

•SERftCR.aiEMTVEC I^EMT^VECTOR FOR ERROR ROU-^INE 

•|TRAP*aiTRAPVEC\-;TR^^ VECTOR FOR TRAP CALuS 
•340,allTRAPVEC+2;lfVEL 7 
•SPUftON^aiPURVEC :: POWER FAILURE VECTOR 
.|40^J,f«fiVEC*S ,,„aER OF !TE=h':CN5 



LQc 



CZRKjE.Pii 



E. 
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1158 
1159 
JlbO 

lib 

11&3 
1164 
1165 
11&£> 
1167 
1166 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 

:i82 

1183 
1184 

lies 

1186 
1187 
1188 
118S 
1190 
1191 
1192 
1193 
1194 
1195 
11% 
1197 
1198 
1199 
1200 

m 

12C3 
1204 
1205 
1206 
J 207 
1208 
1209 
1210 
1211 
1212 



001650 
001654 
0G1662 
001670 



001676 
001702 
001710 
001716 
00172M 
001732 

001734 
001736 
0017M2 
00174M 
001752 
001760 

001764 
001772 



001774 
002000 
0C2002 

002006 
002012 
002014 
002022 
002024 
002026 
002030 
002036 
002036 

002110 

002110 

002116 

002124 



002U • 
00213] 
002132 
002134 
002:40 



005037 
112737 
012737 
012737 



013746 
012737 
012737 
012737 
022777 
001012 

OOC403 
012716 
000002 
012737 
012737 
012637 

023737 
001416 



005227 
001043 
104401 

005737 
001006 
023727 
001005 
104406 
000403 
112737 

000424 



001210 
000001 
001662 
001670 



000004 
001736 
177570 
177570 
177777 



001744 

000176 
000174 
000004 



01160C 
005740 
022626 

104401 002142 
000417 



001115 
OCilOb 
CCIUO 



000004 
001140 
001142 
177206 



001140 
001 1M2 



000042 000046 

177777 
002040 
000042 

001140 000176 
000001 001134 



012737 002126 000004 
012777 002212 177144 
000516 



CLR 
10VB 

MOV 
flQV 

::SI2E FOR fl 
;; EQUAL TO fl 

ngv 
fiCv 
flOV 
flOV 
CflP 
BNE 



SESCAPE 
tl.SERMAX 
1. .SLPfiOR 



CLEAR THE ESCAPE ON ERROR ALGPE5= 
ALLOU ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOP 5::PE 



HARDUi - 

"-r, "setup'for a softuare suitch register. 

AVE error VECTQR^^ 
lET UP ERROR VECTOR 



5lERRVEC.-(5P) 
t64S.atEftRVEC 



64S 
65S 
66S 



.SBTTL 
::TYPE 



.SBTTL 



BR 

flOV 
RTI 

rov 
nov 

FlOV 



•DSUA.SWR 
•DO I S^, DISPLAY 

66S 
65S 

•65S.(SP) 



SETUP FOR A HARDWARE SUICH REGls'S^^ 
AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HAROUARE SUP 
BRANCH IF NO TirCOUT TRAP OCCURPEL 
AND THE HARDWARE SUR IS NOT = -1 
BRANCH IF NO TIMEOUT 
SET UP FOR TRAP RETURN 



•SWREG^SUR ;; POINT TO SOFTWARE SWR 

•DISPRtC.DISPLAY 

(SP)+.atfRRVEC ::RESTORE ERROR VECTOR 



69S: 
70S: 

::68S: 
bflRTl: 



cnp si42,ai46 

BEO 69S 
TYPE PROGRAM NAME 
THE NAME OF THE PROGRAM 
INC 1-1 
BNE 67S 
TYPE .68$ 
GET VALUt FOR SOFTWARE 
TST 3142 
BNE 69S 
CMP SWR.lSUREG 
BNE 70S 
GTSUR 

BR 70S 

MOVB ll.SAUTOB 



:ARE WE IN ACT 11 AUTOMATIC MODE' 
;IF YES. SKIP TITLE 

IF FIRST PASS 

;; FIRST TIME' 
•.BRANCH IF NO 

::TYPE ASCIZ STRING 
SitTCH REGISTER 

:;ARE WE RUNNING UNDER XXDF fiC^" 

:; BRANCH IF YES 

:;SOFTWARE SWITCH REG SELECTED" 

;; BRANCH IF NO 

11 GET SOFT-SWR SETTINGS 

;:SET AUTO-MODE INDICATOR 



BR 67S ::GET OVER THE ASCIZ 

TaSCIZ <CRLF>/RK11 LOGit TEST I/a5><12>/HAINDEC-ll-DZRI'.J-E 



MOV 
MOV 
BR 



•BflDTf10,St4 

•BAOINT.SRKVEC 

TSTl 



:SET TIME OUT VECTOR FOR UNEXPECTEZ 
TIME OUTS 

; SET UP RKll INTERRUPT VECTOR FOR 
UNEXPECTED INTERRUPTS FRO^' PKll 
;G0 TO TEST 1 



:THIS ROUTINE HANDLES UNEXPECTED TIME OUTS 



BADTMO: MOV 
TST 
CMP 
TYPE 
BR 



(SP),RO ;SAVE PC WHERE TIME OUT OCCURED 
-'ROJ 

RESTORE STACK POINTER 



(SP)*.(SP3+ 
,65S 
&4S 



:TYPE ASCi: STRING 
:GET OVER THE ASCir 



iRKjE.pi: 



;: TE5' 1 



M0£ 

ifiCvil 33a0%) Ob-JUN-77 14:40 PAGE 25 
GE'' VALUE FOR SOFTUfiPE SWITCH REGISTEP 



1214 

1215 
121b 
1217 
1218 
1219 
122C 
1221 
1222 
1223 
1224 
.225 
122b 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
124& 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
125b 
1257 
1256 
1259 
12b0 
1281 
1||2 

I2b4 
12b5 

i2be 

12&9 



002200 

002200 C1004b 

002202 104402 

002204 OOOOOC 

00220b 00C137 00154= 



:;b5J: 
t4J: 



.ftSCIZ <i5><l2>'"jrCXPECTE0 TIME OUT AT PC=/ 



MOV 
TYPOC 
HALT 
JMP 



RO.-iSP) 



aiSTART 



;SET UP FOR TYPING OUT PC 
;G0 TYPE OUT OCTAL PC 



002212 
002214 
0022 lb 
002224 
00222b 
002230 
002232 
002234 

00223b 
002242 

002254 
002254 
00225b 

0022b0 
0022bb 
002270 
002272 

00227b 
002304 
00230b 
002310 



-.THIS ROUTINE HANDLES UNEXPECTED INTERRUPTS FROM PKll 
;5U 9 AND 10 FOR LOOPING ON ERROR 
:AND LOOPING ON TEST IN UHICH TIMEOUT 
:OCCURRED. ARE PROVIDED. 



OUbCO 
005740 

032777 02Q0CD 17b714 

001D15 

104401 

001213 

104401 

011443 



BADINT: MOV 
TST 
BIT* 
BNE 
TYPE 
JCRLF 
TYPE 
EM43 



104401 
000404 



01004b 
104402 

032777 
001403 
022b2b 
000177 

032777 
001401 
000002 
000000 



002244 



::b5$: 



001000 17bb52 15: 



17bbl0 
040000 



17bb34 2S: 



3S: 



002312 000137 001542 



TYPE 
BR 

.ASCIZ 

MOV 
TYPOC 

BIT 
BEQ 
CMP 
JMP 

BIT 
BEQ 
RTI 
HALT 



JMP 



(SP),R0 
-(R05 

•20000. asuR 
IS 



,b5J 
&4S 

/ AT PC=/ 
RO,-(SP) 



•lOGO.aSUR 
2S 

(SP)+.(SP)+ 
aSLPADR 

M400pO,aSUR 



atSTART 



;SAVE PC WHERE INTERRUPT OCCUPEC 

; INHIBIT ERROR TYPEOUT' 
;VES, DON'T TYPE OUT 



TYPE 'UNEXPEXTED RKU INTERR'jP"" 
TYPE • AT PC=' 
;TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 

SET UP FOR TYPING OUT PC 
GO TYPE OCTAL PC UHERE BAD 
INTERUPT OCCURED 
LOOP ON ERROR' 
NO. BRANCH 

YE§. REPOSITION STACK 

GO TO THE STARTING ADDRESS OF 

THE TEST THAT GAVE UNEXPECTED IN'^EPR-F' 

LOOP ON TEST' 

NO^ BRANCH 

YE§, LOOP. GO BACK UHER U INTERRUPTED ^RZ". 
UNE^(PECTED INTERRUPT OCCURED AS 
INDICATED IN THE TYPE OUT.b CAN LOOP 
ON ERROR. TEST.OR INHIBIT TYPEOUT BY 
SETTING APPROPftlATE SWITCHES. 
GO BACK TO THE START OF THE 
PROGRAM. THUS PRESSING CONTINUE 
AFTER THE ABOVE HALT UILL 
RESTART THE PROGRAM 



00231b 

00231b 104401 002324 
002322 000411 

0023Mb 

00234b 005000 



.DCCTQDT OFTFR PCUFR FAIL 

;thE PROGRAM WOULD RESTART HERE IF POWER CAME BACK AFTER A FALIURE. 
prcTRT' 

' TYPE .655 :;TYPE ASCIZ STRING 

BR 645 iiGET OVER THE ASCIZ 

::b55: .ASCIZ <15><12>/PWR UP.ftESTART/ 

CLR RO 



IC-il-DZRKJ-E, RKU BASIC LOGIC TEST 1 
3:RkJE.Pll iq-ftPR-77 3<3:1H 



N02 




1270 

if, 

137: 

127H 

1275 

127fa 

1277 

1278 

127«3 

1290 

1281 

1282 

1283 

12B4 

12B5 

1286 

1287 

1288 

128«3 

1290 

1291 

12S2 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1332 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 



002350 005001 



002360 001374 



002362 
002364 
0G2366 

002374 
002402 
302406 
002412 



002414 
002416 
002420 
002426 
002430 
002432 
002436 

002460 
002460 
002464 
002464 
002466 
002470 
002474 

002476 
002500 
002502 



002504 
002506 
002510 
002514 
002520 



000004 
005002 
012737 

012737 
012700 
012701 
005731 



005200 
001375 
012737 
005702 
001415 
104401 
000410 



002412 001110 



002466 
177771 
001244 



002126 
002440 



000004 



000004 



000137 005370 



000407 
022626 
014137 
104001 

005721 
005202 
000744 



001162 



000004 
000005 
012700 
012701 
023711 



177772 
001246 
001250 



fIfiCYll 30(1046) 06-JUN-77 14:40 PAGE 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



IS: 



CLR 

m 

INCB 
BNE 



Rl 

!i 

RO 
IS 



:*TEST 1 TEST THAT ALL RKU REGISTERS CAN BE REFERENCED 

THIS TEST CHECKS IF EVERY RKll REGISTER CAN BE 
REFERENCED WITHOUT TIMING OUT. IF A TIME OUT OCCURS THE ERROR 
i«REPORTED & AN ERROR FLAG (R2) IS INCRENENTED. IT THERE WAS 
:*AN ERROR DURING THIS TEST, THE ENTIRE PROGRAM IS ABORTED 
: :»«ftft«4«««»«««««««««««»««»««««««f «««««««««««««««««««*««««##*««» 



TC 



t§Tl: 



Tl! 



IS: 

TIMOUT: 



SCOPE 

CLR 

MOV 

MOV 
MOV 
MOV 
TST 



INC 

BNE 

MOV 

TST 

BEQ 

TYPE 

BR 

.ASCIZ 

JMP 

BR 
CMP 
MOV 
ERROR 

TST 
INC 
BR 



R2 

•T1,SLPERR 

aTlM0UT.ai4 
i-7.R0 
tRK£)S,Rl 
a(Rl)+ 



RO 
Tl 

tBADTM0.3i4 

R2 

IS 

,65S 
&4S 



<15><12>/PR0G AB6ftTED/ 



SET RETURN ADRES FOR LUP 
ON EROR (SW9) 

SET UP ADDRESS FOR TIMEOUT VECTOR 

INITIALIZE RO TO KEEP TRACK T-F REGIS REFERENCED 

INITIALIZE Rl WITH RKDS ADDRESS 

REFERENCE THE REGISTER. 

IF IT CAN'T BE. TIMEOUT TRAP WILL OCCUR 

SHIFT THE POINtER 

ALL REGISTERS REFERENCED' 

IF NOT, LOOP BACK & REFERENCE NEXT REGISTER 

WAS THERE AN ERROR? 
NO, BRANCH 
;TiPE ASCIZ STRING 
GET OVER THE ASCIZ 



SGET42 

TST2 

(SP)*,(SP)+ 
j(Rl),SREGO 

(Rl) + 
R2 

Tl+2 



;IF YES, ABORT THIS ENTIRE TEST 
;;EXIT 



OUT 



GET ADDRESS OF REGISTER THAT TIMED 
TIMED OUT WHEN REFERENCING RKll 
REGISTERS 

REPOSITION POINTER TO THE NEXT REGISTER ADDRESS 

SET FLAG INDICATING ERROR 

BRANCH BACK & REFERENCE THE NXT REGISTER 



4tEST 2 CHECK RKll INITIALIZATION 

:»THIS TEST CHECKS THAT THE CONTROLLER LOGIC IS INITIALIZE: 
^CORRECTLY, RKWC. RKDA. RKDA, RKDB SHOULD BE CLEAR AND 
»RKCS SHOULD HAVE 'CNTRL RDY' BIT SET. 

tST2: SCOPE 

RESET ; ISSUE A BUS INIT 

MOV i-6^R0 :SET COUNT FOR 6 REGISTERS 

MOV SRKtR.Rl ; INITIALIZE ADRFS 

IS: CMP RKCS.SRl :IS IT RKCS^ 



bo: 



TES' 1 



13 

IflCYli 3C.10Hb) 06-JUN-77 14: HO 
^2 CHECk RKli INITIfiLlZftTION 



PfttE 27 



i32t> 
1327 


002S2S 


CC1005 




OOOOCC 


002S2b 


022771 


OOC200 


1328 


0(32534 


001004 






i32S 
13X 


00253b 


000411 


000000 




002SMO 


005771 




1331 










1332 
1333 


002544 


001408 






0025% 


011137 
017137 


001182 




'33M 


002S52 


000000 


001184 


1335 


0025b0 


104002 
005721 






:336 


0025b2 






1337 


0C25b4 


0052QC 






1336 


0025bb 


001354 
















13^: 




















:34£ 










13H3 




















13M5 










13*^ 
1347 


0C2570 
002572 


X30C4 
012737 






002804 


OClilO 


1348 










1349 


002b00 


01 2700 


000002 




:35C 


002b04 


010077 


178440 




1351 


002blQ 


017701 


I7b434 




'352 


002blH 


042701 


000200 




1353 


002b20 


020001 






1354 


002b22 


001406 






1355 


002b24 


010037 


001182 




:35b 
1357 


002b30 


017737 


176414 


QCiib4 


002b3b 


104003 






1358 
:35"3 


002b40 


008300 






002b42 


020C27 
CCl35fe 


000020 




:3bC 


002b4fc 






I3fci 










:3&2 










:3b3 










:3b4 










:3b5 










:3bb 

1367 










002b5Q 


000004 






1388 
I3b<3 


002852 


012737 


002bb4 


001110 










1370 


002bb0 


012700 


000020 




1371 


002bb4 


010077 


i7b3bC 




1372 


002b70 


017701 


178354 




1373 


002874 


042701 


0002DC 




137M 


002700 


020001 






1375 


002702 


001408 






:37b 


002704 


010037 


001182 




1377 


002710 


017737 


178334 


001184 


1276 


00271b 


104003 






:27<5 


30272C 


008300 






• -ior 


X2722 
:C272t 


022700 


OOCIOC 




• "C- 


00 1358 







2t: 
3S: 
41: 



B^€ 

CflP 
BN£ 
BR 

TST 

BEQ 

r.ov 

MOV 

ERROR 

TST 

INC 

BNE 



2S 

•200.S(R1. 

3S 

4$ 

S(R1) 
41 

SRl.tREC^O 
a(Ri).SREGl 

(Rl) + 

RO 

It 



NO 

ONLY BIT 7 OF RKCS SHOULD BE zV. 
BRANCH IF ERROR 

CHECK THfiT REST OF REGISTERS 
ARE CLEAR 

BRflrlCH IF REGISTER IS CLR 

GET ADRES OF REGISTER 

GET CONT:nTS of REGISTER 

RKll REGISTER UAS FOUND TO B NOT 

INCREfINT POINTER TO NXT REG 

CHKD ALL REGS^ 

IF NOT LUP 8AK 



.EhB 



iilEST 3 TEST RKCS FUNCTION BITS - 1.2.3 

»THIS TEST CHECKS IF THE FUNCTION 6lt-1.2,3 IN RKCS CAN BE WRITTEN S 
♦READ BACK. RO CONTAINS THE BIT THAT uAs WRITTEN. Rl CONTAINS 'HE 
♦BrS THAT WAS/WERE READ BACK. 

t§'"3; SCCPE 

SET RETURN ACRES FOR lOPINC ON 



IS: 



2S: 



nov 

NOV 

nov 

NOV 

BIC 

CMP 

BEQ 

MOV 

NOV 

ERROR 

ASL 

CMP 

BNE 



•1S.5LPERR 

•2.R0 

RO.aRKCS 
aRKCS.Rl 
•200,^1 

ro.rI 

2S 

RO.SREGO 

aR^CS.SREGl 

3 

RO 

R0.I20 
IS 



ERROR (SU 9) 
INlTir<Ll2E BIT TO BE WRITTEN IN PRCS 
WRITF THAT BIT IN RKCS 
GET f<KCS 

MASK OuT CNTRL ROY BIT 

WAS RECVD BIT SAME AS WRITTEN Sr 

YES, BRANCH OT«RWISE REPORT ERRCR 

GET EXPCTD RKCS, BIT THAT WAS WR r'E^ 

GET RECVD RKCS. BIT READ 

BIT THAT UPS WRITTEN WAS NOT READ BnCf 

SHIFT TO WRITE NEXT BIT 

HAVE U CHKD ALL 3 BITS 1. 2. 3 

IF NOT. LOOP BACK & CHECK THE "iv- 



I4TEST 4 TEST RKCS EXTEfOED HENORY BITS - 4 5 

:fTHIS TEST CHECKS IF THE 'EXTENDED NENORy' BITS CAN BE WFI" 
:»AND READ BACK CORRECTLY. 
• ***»#»#»*»»»»««*#»♦»»»««»»«»»»*♦*«»»«#»»»##*#«»♦♦#♦»♦*#♦♦♦♦ 



t5T4: 



IS: 



2S: 



SCOPE 

nov 

MOV 

nov 
nov 

BIC 

CMP 

BEQ 

MOV 

MOV 

ERROR 

ASL 

CMP 

BNE 



•iS,SLPERR 

•20^0 

R0.MKC5 

aRKCS.Rl 

•200, Al 

RO.Rl 

2S 

RO.SREGO 
aR^CS.SREGl 

3 

RO 

•100. PO 
IS 



SET RETURN ADRES FOR LUPING 
ON EROR (SW <3) 
INITIALIZE BIT 
WRITE THAT BIT 
GET RKCS 
MASK OUT CNTRL 



TO BE WRITTEN IN RkCS 
IN RKCS 



ROY BIT 

WAS RECVD "BIT'SAME AS WRITTEN Br 
YES, BRANCH 

GET EXPCTD RKCS, BIT that WAS URrTEN 

GET RKCD RECVD. BIT THAT WAS READ 

BIT THAT WAS wftlTTEN WAS NC READ BA^k 

SHIFT TO WRITE NEXT Br 

HAVE U CHKD BO'^H BI'S. 4. 5 

IF NOT. lOOP BACK S CHECf- 'HE n\' 51' 



-:--:-::ck:-e. ^kh bmsic lcgic test i 



:38c 










:3S3 










:39<» 

139S 


















:3% 










:38r 










1388 
:38S 


















13S0 


002730 


000004 






:39i 


002732 


012746 


000340 




I3S2 


00273b 


0127% 


002744 




13«33 


0027H2 


000002 






1394 


0027MM 








13% 


C0274M 


013700 


00125: 




13% 

:3S7 


002750 


012710 
022710 


OOOIQQ 




002754 


000300 




1396 


0027i>0 


001406 




001162 


1399 
1-4X 
1-4C1 


0027b2 


012737 
011037 


000300 


002770 


001164 




002774 


104003 
















l-*23 


2a277£s 


13'*-»12 






HOW 




















H3fe 


















>::e 










HC9 










HlC 










nil 


0Q300Q 


022710 


Q002X 




Hlc 


X3004 


001406 






H13 


003Q0b 


010037 
011037 


001162 




HH 


003012 


001 16** 




H15 


003016 


104010 






Hlfe 
Hi7 


0C302C 


00C43C 






003022 


104414 


000010 




H18 










h:9 


0C302b 


012777 


003076 


176234 


H2C 










H21 










1422 


0C3C34 


013746 


001266 




1423 


0C3040 


0127% 


003C46 




1424 
1425 


003044 


000002 






003046 


000240 






:42fc 


0C3050 


000240 






1427 


0C3052 


000240 






1428 


003054 


0127% 


0OG343 




1429 


003060 


012746 


0C3Q66 




1430 


003064 


000002 






1421 


003066 








1432 










1433 


X3066 


312777 


002212 


17617'* 


1434 


X3C74 


G004C2 






1435 


X307fc 


022626 
■ *4'' ' 5 






.-3& 







C03 
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T4 TEST RKCS EXTENDED MEMORY BUS - 4.5 



•#»«tt»ttttM»»f »####»»#»#*###»»###•##»♦########*»♦♦♦###♦#•♦♦♦♦# 

• "^EST 5 CHECK RKCS IDE BIT - fc 

-tTHlS TEST CHECKS IF IDE BIT CAN BE WRITTEN S READ BACK. "HE PPCCESSC^ 
•tSTATUS IS SET AT PRIORITY 7 SO THAT JNWANTED INTERRUPTS APE .CCKED S-'. 
UthEN IDE BIT IS CLEARED AND PROCESSOR PRIORITY IS .OWEPEC 'C INS-PE 
:«N0 INTERRUPTS OCCUR. 



^§T5: 



64S: 



IS: 



2S: 



41: 



65S: 



3S: 



SCOPE 
MOV 
MOV 
RTI 

MOV 
MOV 
CMP 
BEQ 
MCb 
MOV 
ERROR 



•340, 
I64S, 



•(SP! 

(SP) 



rkcs.ro 

1100, 3R0 
•300. aRO 
IS 

•300.SREG0 

9R0.iREGl 

3 



:nT. RESET 



CMP 
BE^ 

nov 

MOV 

ERROR 

BR 

DELAY 
MOV 



MOV 
MOV 
RTI 
NOP 
NOP 
NOP 
MOV 
MOV 
R'^I 



MOV 

SP 

CMP 

epp: 



•200. 3R0 
2S 

RO.SREGO 
SRfi.SREC 

10 

TS'6 
.10 



>1 



•3S.aRKVEC 



RKPPI.-.SP^ 
•4S.-SP 



•34C.-vSP' 
•65S,- 5r 



•BADINT.aRK.'EC 
TS'6 

;SP-*..5P ♦ 
12 



SET THE IDE BIT 

UAS IT WRITTEN CORRECT.f 

YES, BRANCH OTHERWISE REPOP' ER^cc 

GET EXPCT RKCS 

GET RKCS RECVD 

IDE BIT UAS WRITTEN. BUT WAS 
READ BACK 

CONTROL RESET, CLEAR IDE 

THIS IS A CALL FOR THE 'CN'^RL- 

RESET' ROUTINE. A CONTROL RE3E' 

IS ISSUED AND AFTER A CERTAIN ^1*^ 

IF THE 'CNTRL ROY' DOES NOT SE' 

AN ERROR IS REPORTED. NOTE T^fi' 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET* IS LOCATE:. 

DID IDE BIT GET CLRD' 

YES. BRANCH 

GET ACRES OF RKCS 

GET RKCS 

IDE BIT COULD NOT B CLRC 
:EyiT 

WAIT FOR AT LEAST 60 US 
ON 11/20 12 US FOR 11-45 
SET RKU INTERUPT VECTOR 'C 
WHICH RKll CAN INTERUPT IF "'HEOE 
IS FAULTY LOGIC 
LOWER CPU PRIORITY SO THAT 
RKll CAN POSSIBLY IN-'ERRUP' 
THER IS MALPUNCTIONINIG uOGi: 
"»€ INTERRUPT WOULD OCCUR 



PRIOR^^Y 

SET up'uNExPC'D iNTRuP" '.E:':fi 

:EXIT 

teSTORE STACK 

AN UNEXPECTED RKli INTERRLB' 
vCCuPED PROBABLY Dj£ ^: pA-^'^ 



D03 



1^39 

use 
1-5: 

>5c 
>53 

:456 

1-457 

uss 
:-»6: 

:-»fe3 

:-fo7 
H7a 

1-7I 
H72 
H73 
H7M 
H75 
H7b 
1477 
147B 

:-»7q 
:i6i 

H83 
l'4S7 

>93 



'lACYi: 33aOHb. 3&-JUN-77 14:43 PfiiE 
T5 CHECK RKCS IDE 8IT - b 



X310£ 
003134 
3031 10 
X3114 
0C311b 
003120 
003124 

0C312b 
003130 
0Q3134 
X31H0 

003142 
X3144 
3C3:5C 



X3152 
X3154 
X3:bC 

X31b4 
X3lbb 
X3172 

X31 7b 
X32X 
X320b 
003212 



X3214 
X321b 
003222 



XOCC-' 
012701 
013702 
010112 
Q112X 
0427X 
020 IX 

X1405 
013137 
011237 
10HX3 

OObXl 
022701 
wC 1 3& « 



000004 
013700 
Q1271C 

ouao; 

042701 
022701 

00140b 
012737 
011C37 
104004 



XX04 
01274b 
01274b 
03CQ32 



00C400 
X1250 



000223 



001 lb2 
001 lb4 



013Q0C 



001250 
17C20C 



OIOOOO 
X0200 



tTEST b CHECK RKCS 5SE 

:»THIS TEST CHECKS IF 
;ftAN0 READ BACK CORREC 

tSTb: SCOPE 



.EXB.Ff1T.IBfi BITS - 8.9.13.11 

tHE SSE. EXB. Fn^ & idfi 8I*S CfiN SE -PI' 



IS: 



2S: 



ROV 
flOV 
10V 
HCV 
BIC 
CMP 

BEQ 
10V 
IC. 
ERROR 

ASl 
C1P 
BNE 



•400. Rl 

RKCS.R2 

Rl.aft2 

aR^.RO 

•2Qfi.R0 

R1.R6 

2S 

Rl.SREGO 
3R^.tREGl 

3 

Rl 

•10000. Rl 
IS 



: INITIALIZE Br TO BE URI'^EN 11 s.;: 

WRITE THAT BIT IN RKCS 
GET RKCS 

HASK CNTRL RDY BIT 

WAS THE READ BIT SAIE AS THE 

WRITTEN BIT 

YES BRANCH^ OTHERUISE PEPCP' EPP:^ 
GET EXPTD ftKCS 
GET RECVO RKCS 

BIT THAT WAS WRITTEN .AS IN SPEG3 

WAS NOT READ BACK 

SHIFT TO WITE NEXT BIT 

HAVE U CHECKED ALL BITS 8. 9. iC. 11 

IF NOT. LOOP BACK & CHECK ^HE NV* oy 



♦'EST 7 CHECK READ ONLY BITS OF RKCS 

:»THIS TEST CHECKS THAT TRYING TO SET THE UNUSED BIT OP 'hE P£ 
:»BITS DOES NOT SET THEN OR AFFECT ANY OTHER BITS IN ^KZS 



00020C 0Cllb2 
001 lb4 



*5T7: SCOPE 
MOV 
MOV 

flOV 
BIC 
CHP 

BEQ 
•»0V 
10V 
ERROR 



RKCS.RO 
•17Q^X,SR0 

aRO.Rl 
•10X0, Rl 

•ax.Ri 

TSTIO 
•200.SREX 
SRCiREGl 
4 



TRY SETTING THE JNUSEC Sr S PZ 
ONLY BITS 
GET RKCS 
MASK BIT 12 

IS 'ROY' BIT SET' NO OTHER 

BIT SHOULD BE SET. 

:0K, EXIT 

4ET EXPCTD RKCS 

GET RKCS RECVD 

TRIED TO SET UNUSED i RD ONLY BIT: 
OF RKCS 

SHOULD NOT HAVE AFFECTED ANY BITS 



0C0340 
003230 



:#**#**»#******#*♦**♦****«*#*######*##*«###♦♦♦#♦«#»»»****♦»#♦♦♦# 

4TEST 10 CHECK THAT 'GO' BIT (0) CAN BE SET 

;tTHIS TEST CHECKS THAT THE 'GO' BIT CAN BE SET, BY PERFCR'^ING 
tCONTROL RESET & SEEING THAT THE EXB & IBA SET PREVI0L3u> 
;*UERE CLEARED. 

:;♦♦♦♦#*##*#«#«#»***»»»####»«#♦#♦*#»#*»*»»»##»##*#♦»*♦«»*♦♦♦♦»♦♦♦ 

^^TIO: SCOPE 

MOV •340.-(3P) 
MOV •b4$.-(5P' 
RTI 



::»►:-£. «?K:i Bmsi: logic mz'' i 



Eo: 



_J3 
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''IC CHECK THfiT •CO* BIT (0) CAN BE SET 



1500 



1503 
1504 
1535 
150& 

< cn-^ 

1508 
1509 
151C 
1511 
1512 
1513 
1514 
1515 
151& 
1517 

:s:e 
isi? 

152C 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
153fe 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
.544 
1545 
1546 
1547 
1548 
.5-»9 



303230 
0C3230 
X323S 
003240 

X3250 



0032&0 
003264 
C032bb 
003270 

003272 
003274 
003276 
003300 

003304 
003306 
003312 

003314 
0C3316 
003322 



013701 
012711 
005000 

0C14C3 

liiiS 

012711 
005211 
00S200 
105700 

100411 
105711 
10C373 
022711 

001407 
011137 
104006 

000403 
204737 
104007 



00125C 
00^576 



000200 
001162 
005000 



64f: 



IS: 
2S: 



000200 
001162 

005434 



3S: 



nov 
nov 

CLR 
RESET 
CflP 
BEQ 

nov 

ERROR 

flOV 

INC 

INC 

TSTB 

BMI 
TSTB 
BPL 
CMP 

BEQ 
MOV 
ERROR 

BR 

J5R 

ERROR 



RKCS.Rl 

•757{,.aRl 

RO 

t200,SRl 
IS 

aRl.SREGQ 
5 

•5000. SRI 

SRI 

RO 

RO 

3S 

3R1 
2S 

1200. SRI 

TSTU 

aRl.SREGQ 

6 

TSTli 

Fw,GT3RG 

7 



SET ALL BITS EXCEPT GO 

lyil^ WrkcI'^URS CLEARED' 

YES, BRANCH OTHERWISE REPORT £RF:= 

GET RKCS 

BUS INIT DID NOT CLEAR RKCS 
SET IBA & EXB IN RKCS 
SET GO. CONTROL RESET 
KEEP TtriE 

HAVE U WAITED LONG FOR CNTRL PDY 
TO SET' 

IF YES. BRANCH & REPORT ERROR 

WAS CNTRL RDY SET' 

IF NOT LOOP BACK S WAIT FOR IT 

IF CNTRL RDY WAS SET, CHK IF "CNTRL 

RESET' CLEARED IBA & EXB BITS 

:IF YES^ EXIT. OTHERWISE ERROR 

iET RKC§ 

GO BIT COULD NOT BE SET OR FhUL' IN 
THE 'INIT L' GENERATING LOGIC 
:EXIT 

iO, GET RKCS, ER. OS 

COI^TROL READi' Dl6 NOT SET hFTEP 

CONTROL RESET 



:♦♦»#»##«#»#«*#»»»»**#####*»#»*»#*«♦«»*»***##*«**«*****«***»♦**♦ 

;»TEST 11 CHECK RKCS WITH A COUNT PATTERN 

;»THIS TEST CHECKS THAT RKCS CAN BE CLEARED FROM 7576 THEN h :CJN' 
♦PATTERN FROn 2 TO 7777 IS RUN. NOTE: ALL PATTERNS WITH BIT Q SET 
#(G0 BIT) ARE AVOIDED SO THAT RKU MAY NOT START AN UNOESIRED CPER 
#R1 CONTAINS THE COUNT PATTERN THAT WAS WRITTEN 



003324 


000004 






UtiI: 


SCOPE 


003326 


012737 


000010 


001206 




NOV 


003334 


012746 


000340 






MOV 


003340 


012746 


003346 






MOV 


003344 


000002 








PTI 


003346 








64S: 




003346 


013700 


001250 






MOV 


003352 


012710 


007576 






MOV 


003356 


005010 








CLR 


003360 


022710 


000200 






CflP 


003364 


001405 








BEQ 


003366 


010037 


001162 






MOV 


X3372 


011037 


001164 






MOV 


003376 


104010 








ERROR 


003400 


012701 


000002 




IS: 


nov 


003404 


012737 


003416 


001110 




nov 


003412 


012705 


177773 






nov 


003416 


010110 






2S: 


MOV 


X3420 


010102 








MOV 


003422 


052702 


000200 






BIS 


303426 


011003 








MOV 



•lO.STIHES 
•340, -(SP) 
•6M$,-(SP) 

RKC5.RC 

•757£>,SR0 

3R0 

•200, aRO 
1$ 

RO.SREGO 
aRd.SREGl 

10 

•2.R1 

«2i.$LPERR 

•-5.R5 

Rl.iiRO 

R1.R2 

•2AO.R2 

aR0,R3 



;;D0 10 ITERATIONS 



SET ALL BITS IN RKCS EXCEP' 

CLEAR RKCS 

WAS IT CLEARED 

YES, BRANCH 

GET AORES OF RKCS 

NO. GET RKCS 

RK(S COULD NOT BE CLEARED 
WRITE THIS BIT IN RKCS 



WRITE IT 

GET BIT THAT WAS WRIT^'EN 
SET CNTRL RDY Br 



i:-ii-c:rkj-e. rkii basic logic test i 



FQ, 
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^11 CHECK RKCS WITH A COUNT Pfi-'TERN 



1S50 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
:5b0 

:5&: 

iSbS 
15&3 
1564 
1565 
1566 
1567 
1566 
I56<3 
1S7C 
1571 
i57c 
1573 
1574 
1575 
1576 
1577 
1579 
1579 
158C 
1581 
1582 
1583 
1584 
1585 
1586 
1587 

:=8e 

1589 
1590 
1591 
1592 
:?93 
1594 
1595 
15% 
1597 
1598 
1599 
16X 

•tn; 

i6::2 
:t:4 



003M30 
0C3S32 
00243H 

0034% 
003M5Q 
0C3452 
003456 
003462 



003464 
0C3466 
003472 
003476 

003504 
003506 
003510 
003512 
003514 
C03520 
003524 

0C3526 
0C2532 



003532 
003534 
003542 



o8^ 



003554 
003556 
003560 
0G3S64 
X3570 

M3S72 
003574 
0C36C0 
003606 
X3fei: 



02020 
00 140 
010237 
010337 
10M003 



005205 
001405 
062701 
022701 
001355 



001162 
001164 



0OCO02 
010000 



3S: 



CMP 
BEQ 
MOV 
MOV 
ERROR 

INC 
BEQ 

m 

CMP 
BNE 



R2,R3 
3J 

R2,JREG0 
R3,SREG1 
3 

R5 

TST12 
•2.R1 
116000, Rl 
2S 



WAS THfiT BIT kIRlTTEN CORRECTLY' 
YES. BRANCH 
GET EXPCTD UORO 



GET RKCS RECV 
DID NOT READ 
WAS WRITTEN 



lAK THE BIT THfi'^ 



:EXIT 

6ENERATE NaT PATTERN TO BE UPr"'EN 

ALL PATTERNS WRITTEN' 

IF NOT, LUP BAR & CHK NXT PATTERN 



000004 
012700 
013701 
012737 

010011 
011102 
020002 
001405 
010037 
010237 
i04Cll 

0C63QC 
0C:3b5 



COOQOl 
0"1252 

003504 001 110 



001162 
3C1164 



■ •#*»##*##########»»»»#»»#»*»####»»»##########»»»♦»«*#»#♦####### 

:»TE5T 12 CHECK THAT RKWC BIT 0-15 CAN BE SET 

:*THIS TEST FLOATS A T THROUGH RKWC BIT 0-15 AND CHECKS 
«CAN BE READ BACK CORRECTLY. RO CONTAINS THE WORD 'HAT IS wRI' 

" ' - : INITIALIZE RO FOR THE BIT TC BE us:"£ 



MOV 
MOV 
MOV 

MOV 
MOV 
CMP 
BEQ 
MCV 
MOV 
ERROR 

ASl 
BNE 



•l.RO 

RKUC.Rl 
•IJ.tLPERR 

RO.SPl 
aRl.R2 
R0.ft2 
2S 

RC.SREGO 
R2,SREG1 

11 

RO 
IS 



SET UP RETURN AORES FOR 
LUPINC ON ERROR (SU 9) 
WRITE THAT BIT IN RKWC 

WAS IT WRITTEN CORRECTLY 
YES, BRANCH. OTHERWISE. ERROR 
GET EXPCTD RKUC BIT ThAT WAS 
GET RKWC (THAT UPS READ BAC'' ^ 
DID NOT READ BACK THE BIT ^Hh"' 
WAS WRITTEN IN RKUC 
SHIFT TO WRITE THE NXT er 
IF ALL THE BITS HAVE NCT SEEN 
DONE, LOOP BACK 



000004 

012737 QCOOlO 301206 

013700 001252 

012710 177777 

00501C 

005710 

QQ140S 

010037 001162 
011037 001164 
104010 



•*»#♦»»#»»#»##»**#*#»»*»#»#*#»*»»#»•♦****»*****»**»»♦♦♦»»*»*♦♦** 

4TE5T 13 CHECK RKWC WITH A COUNT PATTERN 

:#THIS TEST CHECKS THAT RKWC CAN BE CLEARED. '^HEN A COoV -h' z 
#FROH 0 TO 177777 IS WRITTEN & CHECKED IF 1' WAS Wfil'^EN 
•##♦###♦*»#»#♦«#»#*#**♦*#«»*»##»##»♦##«♦##*###*♦######«*#♦#♦♦♦♦ 



13: 



005001 
012705 
012737 
OlCllO 

oi::o2 
-2:1:2 



177773 
CC3606 



001113 



II: 
2S: 



SCOPE 

MOV 

MOV 

MOV 

CLR 

TST 

BEQ 

MOV 

MOV 

ERROR 

CLP 
MOV 
MOV 
MCV 
MOV 

:np 



•IC.ITIMES 

RKWt.RO 

il77>77.aPC 

aRO 
aRC 

IS 

RO.SREGC 

SR6.SREG1 

10 

Rl 

•-5.R5 
•2$.SLPERR 

Ri.iRO 

apS.R2 

Pl.fr2 



:;D0 10 ITERATIONS 

SET ALL BITS IN PKWC 

CLEAR RKWC 

WAS IT CLEARED" 

YEi. BRANCH 

GET AORES OF RKUC 

NO, GET RKUC 

RKUC COULD NCT BE C^EAREC 
iNriALiZE COUNT PATTERN 



:UPITE THE PATTERN IN 'HE REG: 
:WA5 r rtPU'EN CCRRREr^-* 



32vlOM£). 06-JUN-7r 14:4G Pf^iE 32 
CHECK RkU: WITH A :OJNT Pfi'^EON 



£>3£> 

fear 

b38 
blO 

fell 
£>:h 

felS 
slfe 

eir 

018 

b:9 

b2C 
&2i 
b2S 
&23 
b24 

&25 
b2fe 
b27 
b2S 
b29 
b3C 
b3l 
b32 
b33 
b3M 

bas 

b3b 
b37 

b3e 
bs: 

fe-H 
cH2 
bt3 
e44 
b45 
bHb 
b-47 
CMS 

bso 

bSl 
bSS 
b53 
b54 
b55 
bSb 
b57 

bse 



0C3blb 
X3b22 

X363C 
003632 
X3b34 
0C3b3b 



0C3bM0 
0036-42 

0036% 
003652 

003660 
003662 
00366M 
003666 
003670 
003674 
003700 

003702 
0Q37QW 



003706 
003710 
003716 
003722 
X372b 
X3730 
003732 
X373M 
X37MQ 
M3744 

X3746 
X3750 
X3754 
::376£ 



XI 407 
C1C137 
C10237 
104011 

00S20S 
X14C2 
XS2C1 
XI 363 



000004 
012700 

0137C1 
012737 

01X11 
011102 
020002 
Xi405 
01X37 
010237 
104015 

0063CC 
XI 365 



000004 
012737 
013700 
012710 
005013 
00571D 
XI 405 
010037 
011037 
104C10 

005001 
012705 
012737 



001162 



BEO 3S :>ES. BRftMCH 

f-OV Ri.SREiO :i£T EXPECTED wORL ^ 

HOV R2 5PEG1 :GET hlOPD THAT AfkS PEC^C 

ERROR 11 :CID NCT PEflC 3ACK 'HE 

luAS WRITTEN IVC THE BEilE'E^ 

INC R5 

DCQ ^CT 1 ^ • • EXIT 

■3|. INC Ri * ! Increment count pa^ern 

BNE 2S :LUP BAK & WRITE NX' PA'^ERN I- s; 

:DONE WITH ALL 

■♦♦♦♦♦♦#»»♦»#*#*#»#*»»#*«»»*#»»*»•#»*#»*«»•***♦•*»•***•*•♦*♦♦♦♦♦ 

i'EST 14 CHECK THAT RKBA CAN BE SET . ^ . . 

:»THIS TEST FLOATS A T THROUGH RKBA BITS 0-l5^AlC CrCCK 
♦IT CAN BE READ BACK CORRECTLY. RO CONTAINS THE KOTO THA" 
♦WRITTEN 



000001 

0C1254 
X3660 



001162 
301:64 



001110 



t*^14: 



2i: 



SCOPE 
NOV 

NOV 
NOV 

NOV 
MOV 
CMP 
BEQ 
MOV 
MOV 
ERROR 

ASl 
BNE 



•1,R0 

RKBA.Rl 
ilS.tLPERR 

R0.3R1 
aRl.R2 
RO.ftS 
2S 

RO.SREGC 
R2!SREai 

13 

RO 
IS 



INITIALIZE RO FOR BIT TO BE 
WRITTEN IN RKBA 

SET UP RETURN ACRES FOR 
LUPING ON EROR (SU 12. 
WRITE THAT BIT IN RKBA 

WAS IT WRITTEN CORRECTLY' 
YES, BRANCH 

GET EXPCTD RKBA iBIT WRITTEN 
GET RKBA (BIT READ BACK. 
DID NOT READ BACK TME Br 
WAS WRITTEN IN RKBA 
SHIFT RO^ TO WRITE NEXT 91' 
IF ALL BItS ARE NOT CHK3. tCCF 
BACK & WRITE NXT BP 



COOCIO 
0C1254 
177777 



001162 
3Ci:b4 



177773 
003762 



0^1206 



•#♦»#»#**»##»****»«»##**«»»«#♦»»»»»♦»♦**»*»*»♦**»*♦*»»»♦♦♦♦•♦♦»* 

♦TEST 15 CHECK RKBA WITH A COUNT PATTERN 

;*THIS TEST CHECKS THAT RKBA CAN BE CLEARED. THEN IT s^NS 
^PATTERN FROM 0 TO 177777. Rl CONTAINS THE COJN' PAT'ERN 

tS^iS: SCOPE . 



nr.' 



* 1 w 



2i: 



MOV 
MOV 
MCV 
CLR 
TST 
BE3 
MOV 
MOV 
ERROR 

CLP 
MCV 
1CV 
MCV 



•lO.STIMES 
RKBft.RO 
•177^77. aRO 
SRO 
3R0 
IS 

RO.SREGC 
SRfi.SREGI 

10 

Rl 

•-5,R5 
•2$.SLPERR 

Pi.iPO 



::D0 10 ITERATIONS 

:SE^ ALL BITS IN PKSh 

: CLEAR RKBA 

: WAS IT CLEARED' 

;YES. BRANCH 

:GET ADRES OF RKBA 

:NC^ GET RKBA 

:Rk6a COULD NOT BE C^EAREI 

: INITIALIZE COUN*^ PAT'ERN 

: WRITE THE PA'TERN IN "'-E 
:RE;IS'EP 



Hj3 



3: ::^fe :b-j-N-"' 



.bt3 



IbSC 
leSl 

:&82 
:b83 
.fee** 

.^96 

:b87 

lb88 

ibes 

Ib^Q 

:fe9c 
:bg3 
:b9H 

lb% 

ibr 

« • 

1724 
:7C5 
1706 
1707 
1708 
1739 
l7iQ 
1711 

• ' 

'7''' 

:7:h 

1715 
— • c. 



X14C7 
C12137 

lCNCi3 



5C37.C 
X37'£ 
gC377b 

OfiHOOfe 



OOHOlb 
0C40c2 
30MQ26 
0CMC32 

OOMOMO 

OOMOHH 
0040% 
004050 
004054 
0040bC 

3C40b£ 
jC42fc« 



0040bb 
004Q70 
00407fe 
0C41Q2 
004106 
004110 
004112 
004114 

xmao 

X4i2H 

004126 
30-+13C 



oosacs 

XMG2 
00522: 
3m a 3&«j 



000004 
X5077 
012700 
013701 
012737 

01X11 
011102 
020002 
Xi405 
01X37 
010237 
IC4D15 

0Cfc3CC 



000004 
012737 
013700 
012710 
X501C 
005710 
001405 
01X37 
011037 
lOHOlO 



-IP 



17522b 
00X01 
X125b 
00"040 



cc::b2 

OOllbi 



000010 
00125b 
177777 



Xllb2 
001 lb4 



3S: 



1CV 

ERPOft 

INC 
BEQ 
INC 



apc.!?2 

P1.P2 
3S 

Ri.JRECiC 
aPft.JPEii 

13 

R5 

TS'lb 

PI 

2S 



ufis IT uRiTE'i ;crrre:'. 

YES. BRANCH 

iET EXPECTED UORC 

GET WORD THAT URS REC^C 

DID NOT READ BACK "HE efl^'EPv 

UAS WRITTEN IN-'C "HE PEilS'Ec 

:EXIT 

iNCPEflENT COLIN' PATTERN 

lUP BAK & WRITE NX' PA'^'EON " 

DONE WITH ALL 



:♦♦♦♦♦♦»♦##»«»##»#♦**#«#*»♦»«#»####«####«##♦#####♦##♦♦♦♦♦♦♦♦♦*♦♦ 

4tEST lb CHECK THAT RKDA CAN BE SET 

:«THIS TEST FLOATS AT THROUGH RKDA AND CHECKS 'rtfi' ''lE 
:»URITTEN IS READ BACK CORRECTLY 

;;♦##*♦#««#«♦«##*#»*#**«*»«»«»«♦«##«#«###*##♦»«#«#»»♦♦♦♦♦♦♦♦♦♦♦♦ 

*§'lb: SCOPE 



XI u: 



IS: 



2S: 



C^R 
HOV 

nov 

NOV 

NOV 
NOV 

cnp 

BEQ 

NOV 

nov 

ERROR 

A5L 
BNE 



aRKCS 
•l.RO 

rkCa.ri 

■IJ.iLPERP 

RO.SRl 
aRi.R2 
R0.ft2 
2S 

RO.SREGO 
R2.SREGI 

15 

RO 
IS 



.r^£pp RKCS 
llNniALIZE RO FOP Br 3£ 4Rr' 

SET UP RETURN ACRES 
FOR LUPING ON EROP 
WRITE THAT BIT IN RKDA 

WAS IT WRITTEN CORRECTLY 
YES BRANCH 

NO. 'get EXPCTD RKDA (BIT wRI^EN 

GEt RKDA (BIT READ BACK) 

DID NOT READ BACK THE BIT VA' 

UAS WRITTEN IN RKOA 

SHIFT RO. TOURITE NXT BIT 

IF ALL BITS ARE NOT CHKD. t-CC^ 

BACK & WRITE NXT BIT 



00120b 



♦TEST 17 CHECK RKDA WITH A COUNT PATTERN 

. -Q^^, 

'HE 

i*PATTERN TO BE WRITTEN 
• •*«*«****«**«*«*«***««****#*«*♦#********###«*«*****###**>******« 

*$T17: SCOPE 

::D0 10 ITERATIONS 



:«THIS TEST CHECKS THAT RKDA CAN BE CLEARED. "^HEN A COL 
;»FROM 0 TO 177777 IS WRITTEN AND CHECKED, fil CONTAINS 



X5X1 

012705 177773 

3ic737 :c4i42 



IS: 



NOV 

nov 

NOV 
CLR 
TST 
BEQ 
NOV 
NOV 
ERROR 

CLR 
10V 
lOV 



•lO.STIMES 
RKOA.RQ 
•177777. aRO 
aRO 
3R0 
IS 

RO.SREGO 
aRO.SREGl 

10 

Ri 

•2$:SlPEPP 



:SET ALL BITS IN RKOA 
; CLEAR RKDA 
WAS IT CLEARED^ 
:YES. BRANCH 
:GET AORES OF RKDA 
;G0. GET RKDA 

:Rk6a COULD NOT BE CLEARED 
: INITIALIZE COUNT PA^"^EPN 



ri8 OOMIHS 

'2C OCMlHb 

"21 0CN150 

'22 00M1S2 

'22 OCMlSb 

~2M OOMlbS 

-3C 



72b 

'2S 
-29 
72Z 
731 
'2c 
'33 
'34 
'35 
73fe 
'37 
'38 
73S 
7-fG 
741 

'44 

'45 

-4? 
'^S 

745 

'sd 

751 
'52 0CH242 
753 004244 
'S-* 3Q-»24fc 
755 
'5fe 



756 
'5=3 
'fe2 
7fcl 
7b2 
7fe2 
7b4 
'b5 
7bb 
7b7 
7bB 

7bq 

772 

-•■7 1 



X4:74 
00417b 
004202 
004204 
004210 
0042 12 
00421b 
004220 
004222 

00423C 
nn4?34 
!5C4240 



X4250 
0C4252 
00425b 
0042b2 
0042b4 
0042bH 
004270 
X4274 
X427b 

m 



013110 
011002 
020102 
0C1M07 
010137 
C1C237 
104015 

005205 
001432 
335201 
32i3b3 



000004 
013700 
010002 
012731 
010103 

mi^ 

001374 
000005 
0057 12 
001405 
010237 

ifi4§l7 

005722 
005203 
3w^3bB 



000004 
01274b 
01274b 
000002 

013700 
012710 
005210 
005005 



001 lec 

33::t4 



301252 
177—5 
177777 



'^"llti4 



Q0C34C 
0042b4 



0C125C 
0075b0 



lo: 



'77 14:40 PfiuE 34 
A count Pfi^'TEPN 



21: 



31: 



HOV 
flOV 
CMP 
BEQ 

MOV 
MOV 
ERROR 

INC 
BEQ 
INC 
BNE 



Rl.aRO 
aR6.R2 
R1.A2 
3S 

Rl.SREaO 
R2.SPEai 
15 

R5 

TST2Q 

Rl 

2S 



:^ITE THE Pfi'TERN Ih THE RE::S'£= 

UftS IT *«ITTEN CORPPEC^wY' 

YES, BRANCH 

GET EXPECTED WORD 

GET WORD THfiT UflS RECVC 

DID NOT REfiC BfiCK THE PhT'ERS '-h' 

UAS URITTEN into the REilS^EP 



;EXIT 

lNCREf€NT COUNT PATTERN 
LDP BftK & WRITE NXT PATTERN 
DONE UITH ALL 



IP n: 



• ♦»*»»»»♦»»»»»*»#♦»»#♦»»»##»#»*«*»*«»»»»♦»»»"»»*********»«**♦♦ 

4TEST 20 CHECK THAT RKUC . RKBA , RKDA CAN BE CLEARED BY RESET 

:#THIS TEST CHECKS THAT RKUC. RKBA AND RKDA CAN BE CLEARED S- 
:»RESET INSTRUCTION IS USED 



*4t23: 



IS: 



2J: 



3S: 



SCOPE 

MOV 

NOV 

MOV 

MOV 

MOV 

INC 

BNE 

RESET 

BE3 
MOv 
MCV 
ERROR 

'ST 
INC 
BNE 



RKUC.RO 

ro.rJ 

t-5.Pl 

Rl.^3 

•1*7777. 

Ri 

IS 



: INITIALIZE RO TO PRINT TO RKUC 
•■SET UP COUNT FOR 3 REGISTERS 



BE C-k: 



.RO.* 



.R2^ 
3S 

aR^SPEGl 

P3 
2S 



SET ALl BITS IN RKUC 
RKBA 
RKDA 

ISSJE A BUS INIT 

WAS THE REGISTER (PTD TC B'^ Re- C-Eh^E: 
•'ES. BRANCH 

NO^ GET AORES OF REG IS THAT MS NC C. 
GET CONTENTS OF THAT REGISTER 
RKll REGISTER (ADRES IN RO) C0JL3 
NOT BE CLEARED BY BUS INIT 
INCREMENT POINTER TO NXT REGISTEC 
HAVE U CHKD ALL 3 REGISTERS^ 
IF NOT, LOOP BACK & CHK NXT 



-»*♦#♦♦*#»»♦###»***«#»♦#♦*♦#«♦*»**»»«*#****»*»**»»•»»»»»»***♦**♦ 

i^EST 21 CHECKTHAT RKCS. RKUC. RKBA. RKDA CAN BE CLEARED B^' 

;»RKCS IS SET TO 75bD. RkWC. RKBA, RKDA ARE AuL SET 
#TC 177777 CONTROL RESET IS DOI<<E AND IT IS CHECKED 
:#IF ALL THESE REGISTERS APE ClEhRED. 
• •*♦»#♦*#####♦###♦♦«♦#♦♦♦♦*♦♦♦♦*♦*♦♦♦»##»♦♦#♦#♦♦«♦♦♦♦****♦♦♦♦♦*♦♦ 

^§'21: SCOPE 



s4S: 



IS: 



MOV 
MOV 
R^I 

MOV 

MOV 

INC 

ClP 

■^S'^B 

BMI 

in: 



•340. -'SPi 
•b4j.-(SP- 



PKCS.RC 

•75b6.3RC 

SRO 

PS 

3P0 

2S 

R5 



;5E' 
:SET 



ALL 
GO. 



WRITABLE BHS IN 
CONTROL RESET 



:DIO CNTRL RDY SET' 
.YES. BRANCH 
:UAITED LONG' 



00430b 

mm 

IXIM32M 

mm 

00M33t, 
0043M2 
3M3MM 



17! 



0OM352 
W35& 



00' 



00M3b0 
00M3bM 
0043b{> 
00M370 
004374 
004400 

004402 
004404 
004406 



004410 
004412 
004416 
004422 
004424 
004M2M 

004430 
004434 
M444C 
004444 



001374 

JgljpZ 0G5-i34 



J03 

TES" 1 "fiCrll 3Ca04fa Db-JUN-77 14:40 PftGE 35 

T=l CHECf'HflT RkCS. RKWC, RKBfi RKO(< CfiN BE CLEftREL Br CONTPCw PESE"' 



010037 

013702 
010204 

mk 

010122 
010122 

104412 



012703 
005714 
001405 
010437 
011437 
104014 

005724 
0052Q3 
001366 



000C04 
012746 
012746 
000002 



000201 



'JO 



001162 
001164 

001252 



17' 



013700 
012701 
013702 
012722 



177775 



001162 
001164 



000340 
004424 



012705 177771 



001244 
177774 
001250 
017576 



2i: 



3S: 



BNE 

Mop 

CflP 
BEO 
MOV 
flQV 
ERROR 

nov 
nov 
nov 
nov 
nov 
nov 



CNT. RESET 



IS 

eC.C^3RC 

r 

l|OO.aRQ 

RO.JREGO 

SRl!).tREGl 

14 

RKUC,R2 
R2.R4 
11^7777, Rl 
Rl. (R2)'l- 
R1.(R2)+ 
Rl. (R25* 



IF NOT LUP BftK 



UP.BftK i UfilT 

.^NOT SET 
AFTER CNTRL RESET 
DID CNTRL RESET CLEAR 
YES, BRANCH 
GET ADRES OF RKCS 

OF RKCg 



PKCS 



^5nt&8l^6Ss 



SET DID NOT CLEAR O/Z: 



41: 



5S: 



MOV 
TST 
BEQ 
MOV 
MOV 
ERROR 



1-3, R3 

(R4l 

5S 

R4, JREGO 

srA.sregi 

14 



TST (R4)* 
INC R3 
BNE 4S 



SET ALL BITS 



IN RKWC 
RKBA 
RKDA 

""3ET 



GO, DO CONTROL RESt . 
THIS IS A CALL FOR THE 'CNTR^- 
RESET' ROUTINE. A CONTROL RESET IS 
DONE i AFTER A CERTAIN TIME IF 
•CNTRL RDV DOES NOT SET AN ERROR IS 
REPORTED. NOTE THAT THE PC IN ERROR 
IS THE PC WHERE CNT. RESET IS 
LOCATED. THIS IS A VERY BASIC ERROR i 
IF IT OCCURS GO BACK TO TEST 10. 

UAS THE REGISTER CLEARED' 
YES, BRANCH 

GET AORES OF REGISTER IN ERROR 
GET CONTENTS OF THAT REGISTER 
CONTROL RESET DID NOT CLEAR THE 
REGISTER UHOOSE AORES IS IN R4 
INCREMENT POINTER TO NXT REGISTER 
CHKO ALL REGS' 

IF NOT, LUP BAK & CHK THE NXT REG 



•iTEST 22 CHECK THAT EACH RKll REGISTER IS UNIQUELY AORESSED 

:»THIS TEST CHECKS THAT EACH RKll REGISTER CAN BE UNI3UELY ADDRESSEC 
♦1) RKCS RKWC, RKBA, RKDA ARE FIRST SET TO 177777 (17576 FOR RKC5: 
«2) REGISTER iiHOOSE ADDRESS IS IN RO IS CLEARED 

#3) EVERY OTHER REGISTER IS CHECKED FOR ERRONEOUS CLEARING BECAUSE OF 
;»AOORESSINC ERROR. IF SO THE MULTIPLE ADRESSING ERROR IS REPORTED 
*4) ADDRESS IN RO IS CHANGED TO THE NEXT REGISTER J THE PROCESS IS 
;# REPEATED. 

::#»#»*#*»»»##»»««f »*«»#»»*»**♦**♦»»**♦»****»♦«***»**♦♦*♦♦♦"♦»♦• 

t§T22: SCOPE 



64S: 



IS: 



MOV 
MOV 
RTI 

NOV 

nov 

MOV 
MOV 
MOV 



»340,-(SP/ 
•64$, -(SP) 



•-7.R5 

RKDS.RO 
•-4.ftl 
PKCS.R2 
•17576. (R2)+ 



:SET UP COUNT FOR THE • OF 
REGISTERS TO BE UNIOELY ADORSC 
: INITIALIZE POINTER TO REGIS K BE SE" 



:5ET BITS IN RKCS 



TEST I ^VU 3gi^gHt|^^|^b-j,jJ«-7^;]H^H5^,Pfl« 36 



IS JNIOUELf fiDRESSE: 



m 

1832 
1 8^ 

1838 
1837 
1838 
183S 
i3H0 
1841 
18H2 
13M3 
1944 
1845 
1846 
1947 

1849 
18SQ 



1853 
1854 
1855 
185& 
1857 

13&0 
1861 
1862 
18&3 
18b4 
I8b5 
18b6 
lBb7 
18&8 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
187t 
1877 
1978 
1879 
1880 
1881 

1664 

• 



00445b 

0044b6 
004470 

004472 
004474 
004500 
004504 
004506 
004510 
004514 



am 

001374 



7) / • < 



)13732 001250 
020002 
001406 



2S: 



011203 
042703 
022703 
001020 
005722 
0127C1 
020200 



170200 
007576 



"775 



3S: 
4S: 



004516 001404 



004520 
004522 
004524 
004526 
004530 



011203 
010304 
005104 
001007 
005722 



5S: 



^454^ 
004542 
004544 
004546 

004552 

004556 

004562 

004566 



004570 
004574 
004S76 



001334 
000415 

010037 001162 
010237 001164 
011037 001166 



6S: 



010337 
104Q2C 



001170 



023702 001250 

X1744 

000754 



W 

BNE 

CLR 
flOV 

CMP 
BEQ 

nov 

8IC 
CflP 
BNE 
TST 

nov 

CflP 
BEQ 



nov 
nov 
con 

BNE 
TST 

INC 



TST 
INC 
BNE 
BR 

nov 

MOV 

nov 
nov 

EPROR 



J J 77777. (R2,* 
2S 

Sk?S.R2 

R0,R2 

3S 

aR2.R3 
•170200. R3 
•7576, r5 
6S 

(R2)* 

•-3.R1 

R2.ft0 

5S 



aR2,R3 

R3.R4 

R4 

6S 

(R2)+ 

Si 

iRO)* 

R5 

IS 

TST23 
RO.SREGO 

R2,SREG1 

3R0.SREG2 

R3.$R£G3 

20 



SET BITS IN 



RKDA 



RKHR IF RKllC 
CLEAR REGISTER (WHOSE 



ACDR IS IN cc 



CnP RKCS,R2 
BEQ 3S 
BR 5S 
: : ****************************** 

:*TE5T 23 CHECK THAT HI & 

;»THIS TEST CHECKS THAT 
♦ADDRESSED CORRECTLY. 
:»BrS IN ALL REGISTERS 



I4AS THE CLEARED REGISTER RKCS^ 

YES 

NO-CHECK IF IT UAS INADVERTEH^L"' 
CLEARED BECAUSE OF ADDRESSING 
ERROR 

IF SO. REPORT ERROR 

INCREMENT POINTER TO NEXT REGISTER 

SET COUNT FOR 3 REGISTERS 

UAS THE CLEARED REGISTER SAKE AS 

THE REGISTER POINTED TO BY R2 

YES ^ ^ 

7folNTil6*^BY^Rj*)'^WA§^iNAHv?^TEN^!Y 
CLEARED UHEN CLEARING THE REGIS 
POINTED TO BY RQ, DUE TO 
ADDRESSING ERROR 

GET CONTENTS OF REGIS BEING CHECKE: 

FOR INADVERTENT CLEARING 

CHECK IF ANY BIT UAS ERRCRNEOLSLf ; 

IF SO. REPORT ERROR 

INCRnENT PTR TO NEXT REGIS"^EP 

INCRMENT COUNT 

CHECK THE REST 



INCREMENT PTR TO THE NXT RE:. 1 5 3' 
HAVE ALL THE REGIS BEEN CHECKE:' 
IF NOT, LOOP BACK 
lEXIT. IF DONE 

iET a6rES OF REGISTER THA^ MS 

TRIED TO REFERENCE 

GET ACRES OF REGISTER THAT GOT 

HEFERENCED INSTEAD 

GET CONTENTS OF REG THAT UAS 

AODRESEO & MEANT TO BE CLEARED 

GET CONTENTS OF REGISTER THA' GOT 

CHANGED INSTEAD 

POSSIBLE ADPESING ERROR. TRIED 
ADRESING RKll REGISTER. ANOTHER CNE 
GOT AORESED. REGIS IN fto UAS THE 
ADRE5ED ONE, REG IN R2 
UAS THE ONE THAT GOT AORESED INSTEfiC 

: RETURN TO THE 
; RIGHT POINT 

LO BYTES OF RKCS CAN BE ADDRESSED 
THE HI I lO bytes OF RKCS CAN BE 

THAT CAN BE URITTEN ARE SE"»". ThE^ EmC 



•^-ll-CZR^J-E. RKll BASIC LOGIC TEST 1 



1S9& 
1987 



18% 

I89H 

1995 
• p 



1398 
1899 
190C 
19C1 
1902 
1903 
1904 
1905 
190b 
1907 
1906 
1909 
1910 
1911 
1912 
1913 
19H 
1915 
i91& 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
192M 
1925 
1926 
1927 
1929 
1929 
1930 
1931 
1932 

\^ 

1935 

1938 
1939 
1940 
194: 



QOHbM 
004602 
004606 

mil 

004622 
004624 



46 
00%34 
nn%MQ 
004642 
004644 
004650 
004652 
004654 
004660 
004664 
004666 
004672 
004674 
004700 
004704 



000004 
012702 
012700 
0127% 
012746 
000002 

m\ 

012721 

mp. 

013701 
105011 
010104 
017703 
022702 
001011 
042703 
001417 
005037 
010337 
104022 



177776 
177775 
0340 
4624 



1777"? 
30125C 



174370 
177776 

177600 

001162 
001164 



L03 

nftCYll 30(1046) 06-JUN-77 14:40 PAGE 37 

T23 CHECK THfl"' HI I LO BYTES OF RKCS CAN BE ADDRESSED 

:#BYTE OF RKCS IS REFERENCED BY 'CLRB* & IT IS CHECKED 'Hfi' 'JiL< 
tTHflT BYTE & NO OTHER REGISTER BYTE GETS CLEARED 
••##*#»»««»»#*##»»#«#»###»###############«#»»»»*♦♦»♦«#»»»♦*♦♦•»♦ 

TST23: SCOPE ^^^^ ^^^^^ 2BYTES-HI S 

•-3.R0 ;SET COUNT 



64S: 



IS: 



2S: 



004706 000411 

004710 042703 000377 

004714 001406 

004716 005037 001162 

004722 000303 

004724 C10337 0C1164 

004730 104023 



004732 012700 177774 

004736 013705 Q012S0 

004742 005725 

004744 005200 

004746 001417 

004750 011502 

004752 005103 

004754 001772 

004756 010137 001162 

004762 010537 001164 

004766 012737 177777 001166 

X4774 00S103 



3S: 



4S: 
5S: 



flOV 
NOV 
flQV 
flOV 
RTI 

NOV 
MOV 
MOV 

^ 

MOV 

CLR8 

MOV 

MOV 

CMP 

BNE 

BIC 

BEQ 

CLR 

MOV 

ERROR 



BR 
BIC 
BEQ 
CLR 

SUAB 

flOV 

ERROR 



MOV 
MOV 
TST 
INC 
BEQ 
MOV 

COM 

BEQ 

MOV 

NOV 

MOV 

con 



3P) 
5P) 



RKCS.R1 
•757L(R1)4 

tl777?7.(Rl)' 

?! 

RKCS.Rl 

aRi 

R1,R4 

aR*:cs.R3 

•-2,Ri 
3S 

•177600, R3 
4J 

SREGO 

R3.SREG1 

22 



4S 

•377. R3 
4S 

SREGO 

R3 

R3,SREG1 
23 



•-4.R0 
RKCi.PS 
(P5) + 
RQ 
bS 

3R5.P3 

R3 

5S 

Rl.JREGG 
R5.SREG1 
1177777, SREG2 
R3 



. TO RKCS 
IN RKCS 
SET ALL BITS IN RKUC 
RKBA 

rkDa 

initialize ptr to rkcs lo byte 

CLER RKCS LO OR HI BYTE 

GET RKCS UORD 

R U CHKING HI OR LO BYTE' 

BRANCH IF HI BYTE 

MASK HI BYTE 

OK IF LO BYTE UAS CLEARED 

GET EXPCTO RKCS. 

GET RKCS RECVD. LO BYTE 

ALL RKll REGISTER'S WERE LOADED WITH 

rS THEN TRIED TO ADRES i CLR PKCS 

LO BYTE, IT COULD NOT BE CLEARED. 

MASK LO BYTE 

OK IF HI BYTE WAS CLEARED 
GET EXPCTD RKCS. HI BYTE 
GET WHAT WAS ACtUALLY RECVD 



ALL RKll REGISTER'S WERE LOADED WITH 
rS THEN TRIED TO AORES & CLR RKCS 
HI BYTE IT COULD NOT BE CLEARED. 
INITIALIZE COUNT FOR REST OF REGISTERS 
INITIALIZE POINTER TO RKCS 
INCREMENT PTR TO NXT REGIS 
ALL REGS DONE' 

IF YES, GO & ADRES TO CLEAR PKC5 HI B>^E 
IF NOT, GET CONTENTS OF THE REGIS 
BEING CHKD 

COMPLEMENT THE CONTENTS. SHOULD BE ' 
0 FOR IT WAS 
PREVIOUSLY SET TO Al^L,^* 



•5 



OBrAnCH. IP NOT'REPORT ErJoP^ 
GET RKCS-BYTE-ADRES WHICH WAS 'PIED 

GET^D^ES OF REGIS WHICH GOT ADRE5ED 
INSTEAD 

GET EXPCTD CONTENTS OF REGISTER 
THAT GO ADRESED 

GET CONTENTS RECVD FROM "'HA^ RE-Ia 



1 fieCYll 30.1 



19H2 
1343 

19H5 
19% 
19S7 
1948 
19M9 
195C 
1951 
1952 
1953 
1954 
1955 
195^ 
1957 
19?a 
1959 
19C>C 
i%l 
1%2 
1963 
1%4 
1965 
19&6 
19fe7 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 



004776 010337 
0CS002 104S24 



005004 000756 

D0S0Q6 005201 

005010 005202 

005012 001316 



005014 
005016 
005022 
005026 
OOSOX 
0050X 
005034 
005040 
005044 
005050 
005054 
005060 
005062 



000004 
012746 
012746 
000002 

012704 
013702 
012700 
013701 
012721 
012721 
005200 
001374 



005064 105012 



005066 
005070 

005074 
005076 
005102 
005104 
005110 
005112 
005116 
005120 

005124 
005130 
005132 
005134 
005140 



010200 
042700 

011001 
032702 
001003 
042701 
000402 
042701 
001411 
010237 

032702 
001401 
000301 
010137 
104025 



001170 



000340 
005030 



177772 
001252 
177775 
001250 
007576 
177777 



000001 

000001 
177400 
000377 
001162 
000001 

001164 



nov 
ERROR 



f1Q3 
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'tH«T HI i LO 8YTf5 OF RKCS CftN BE ADDRESSED 



R3.SREG3 
24 



6S: 



BR 

INC 

INC 

BNE 



5S 

Rl 
R2 

2S 



U^T'Th'^iH '^^Sk^S^'^^ LOWED 

BYTE (ftORES UNDER 'BYTE' IN EP 

nSGE) MS PORESED 

USING 'CLRB', BUT REGISTER CADRES 

UNDER 'REGIS' IN 

ER MSG) GOT CHANGED AS A RESULT. 

POSITION PTR TO RKCS HI BYTE 
CHK IF BOTH HI & LO BYTES (RKCSl 
UERE CLEARED 
IF NOT BRANCH BACK 



jiTEST 24 CHECK THAT HI & LO BYTES OF RKHCJA.DA CAN BE ADDRESSED _ 

tTHIS TEST CHECKS THAT BYTE OPERATIONS 6n ftkUC. RKBA & RKDA CAN BE ZCf€ 
;»CORRECTLY. FIRST RKUC. RKCS, RKBA, RKOA ARE SET TO 177777. 

#1) Agister byte POiNtEO to by r2 is cleared using xlrb- 

*2) it is CHECKED THAT ONLY THAT BYTE AND NO OTHER BYTES GET CLEARED 
»3) POINTER R2 IS INCREMENTED TO THE NEXT REGISTER-BYTE & THE PROCESS 
#15 REPEATED. LO BYTE IS DONE FIRST, THEN Hl-BYTE IS DONE. 

t§T24: SCOPE 



64S: 



IS: 



2S: 



MOV 
NOV 
RTI 

NOV 
MOV 
NOV 
NOV 
MOV 
NOV 
INC 
BNE 



•340, -(SP) 
•641, -(SP) 

•-6.R4 

RKUC.R2 

•-3.ftG 

RKCS.Rl 

•757L(R1) + 

• 177777, JRD* 

RO 

2S 



CLRB 3R2 



3S: 
4J: 



IIS: 



MOV 
BIC 

nov 

BIT 
BNE 

BIC 
BR 

BIC 
BEQ 
NOV 

BIT 

BEQ 

5UAB 

NOV 

ERROR 



R2,R0 
•l.RQ 

3R0.R1 

•1,A2 

35 

•177400, Rl 
4J 

•377, Rl 
5S 

R2,JPEG0 
• 1.R2 

iii 

PI 

Rl.SREGl 
25 



;SET UP COUNT FOR 6 REG-BY^ES TO BE hDRESE: 
; INITIALIZE POINTER TO RKUC 



;SET RKCS BITS 
; RKUC 

RKBA 
: RKDA 

: ADDRESS i CLEAR REGIS BYTE UNDER "ES' 



; CONVERT THE BYTE ADRES INTO UORC 
ADRE5 THAT IT BELONGS TO 
GET THE ENTIRE REGIS URD 
UAS THE CLRD BYTE HI OR LO' 
UAS HI, BRANCH 
UAS LO-flASK HI BYTE 

MASK LO BYTE 

UAS THE ADDRESSED BYTE CLEARED" BR YE: 
GET ADRES OF REG-BYTE THAT UAS 
TRIED TO B A0RE5E0 & CLEARED 



:GET CONTENTS OF REG-BYTE 

.•TRIED TO flOPES i CLR A REGISTER BYTE 



0051M2 


017701 


174102 


00514b 


022701 


00777b 


005152 


001410 


001 lb2 


00515M 


010237 


OOSlbO 


012737 


00777b 001 lb4 


005 Ibb 


010137 


001 Ibb 


005172 


10401b 





10-U-DZRKj-E. RKii B«SIC LOGIC TEST 1 
:ZRKJE.P1I l9-flPR-77 0^:14 



1998 
1999 

2000 
2001 
2002 
2003 
2004 
2005 
200b 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2QH 
2015 
20ifc 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
202b 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
203b 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
204b 
2047 
2048 
2049 
2050 
2051 
2052 
2052 



nflCYll 30 (104b) 
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PAGE 39 



T24 



5S: 



CHECK THAT HI & LO BYTES OF RKWC.Bfi.Dft CAN BE ADDRESSED 





ni P7nn 


1 7777? 


005200 


013701 


001252 


005204 


020102 




00520b 


001433 




005210 


010105 




005212 


042705 


000001 


00521b 


011503 




005220 


032701 


000001 


005224 


001003 




00522b 


042703 


177400 


005232 


000402 




005234 


042703 


000377 


005240 


30101b 




005242 


010237 


001 lb2 


00524b 


010137 


001 lb4 


005252 


012737 


000377 001 Ibb 


0052b0 


032701 


000001 


0052b4 


001401 




0052bb 


000303 




005270 


010337 


001170 


005274 


104021 





bS: 
7J: 



SS: 
9S: 



00527b 
005300 
005302 
005304 
00530b 
005310 



005201 
005200 
001340 
005202 
005204 
001253 



12S: 



lOS: 



MOV 

cnp 

BEQ 

nov 

MOV 

nov 

ERROR 



MOV 
flOV 
CMP 

BEQ 

nov 

BIC 

MOV 

BIT 

BNE 

BIC 

BR 

BIC 

BNE 

flOV 

nov 

nov 

BIT 
BEQ 
SUAB 

nov 

ERROR 



INC 
INC 
BNE 
INC 
INC 
BNE 



SRKCS.Rl 
•777b, Rl 
bS 

R2.SREG0 

•777b.5REGl 

R1,SR^G2 

lb 



l-b.RO 

RKUC.Rl 

R1.R2 

lOS 

Rl.RS 

tl.RS 

aR§.R3 

11, Rl 

BS 

•1 77400, R3 
9$ 

«377,R3 
lOS 

R2,SREG0 

R1,SREG1 

•377,$REG2 

•l.Rl 

12i 

R3 

R3,SREG3 

21 



Rl 
RO 
7J 
R2 
R4 
IS 



(ACRES UNDER 'REG-BYTE' 
NOT CLEfiR IT. 



IN EP MSGEi. C:-. 



WAS RKCS ERRONEOUSLY CLRD' 
NO. BRANCH 

GEt ADRES OF REG-BYTE THAT WAS 
TRIED TO 8 ADRESED & CLEARED, 
GET EXPCTD RKCS 
GET RKCS RECVD 

ALL RKll REGISTRS WERE LOADED WITH I'S 

TRIED TO ADRES & CLR 'REGIS-BYTE' (IN ER nSGE) 

RKCS GOT CHANGED AS A RESULT, '(RKCSjEXP' 

CONTAINS EXPCTD RKCS. 'RKCS (RECVD)' CONTAINS 

RKCS RECVD. 

SET COUNT FOR BYTES 

INITIALIZE PTR TO RKUC 

WAS THE CLEARED BYTE (PTD TO BY R2) 

SAHE AS BYTE TO BE CHKD (PTD TO BY RD' 

IF YES, DO NOT CHK THIS BYTE 

; STRIP WORD ADDRESS FROn BYTE ADDRS 

IS THE BYTE TO B CHKD LO OR HI BYTE' 
HI BYTE-BRANCH 
nflSK HI BYTE 

;nflSK LO BYTE 

GET ADRES OF REG-BYTE THAT WAS 
TRIED TO 8 ADRESED & CLEARED 
GET fiORS OF REG-BYTE THAT GOT 
ADRESED INSTEAD 

GET EXPCTD CONTENTS OF RBfc-BYTE 
THAT GOT ADRESED 



GET CONTENTS RECVD FOR THAT REG-BYTE 

ALL RKll REGISTRS WERE LOADED WITH I'S. 

TRIED TO ADRES i CLR 'REG-BYTl' (IN ER nSGE) 

'REG-BYT2' GOT CHANGD AS A RESULT. 

'BYT2-EXPCT' (IN ER MSGE) IS THE EXPCTD CONTENTS 

OF REG-BYT2. 'BYT2-RECVD' IS THE CONTENTS RECVD. 

INCREMENT PTR TO NXT REG BYTE 

ALL BYTES CHKD'' 

NO. LOOP BACK 

INCREMENT PTR TO NXT REG BYTE "'O B wLRC 
ALL BYTES CLRD' 
LOOP BACK 



,SBT^^ END OF PASS ROUTINE 

;■*#♦♦««#«**»♦*#«»»»******##*♦****♦»*******♦*♦***»***♦*♦♦♦*♦♦♦♦♦* 



B04 



'5i T C 



=:55 

2058 

2abo 

20b2 
2a»3 
20b4 
20b5 
23U> 
2067 
20b8 
2CX)9 
2070 
2071 
2072 
2073 
2074 
2075 
20-^ 
2077 
2078 
2C7S 
208C 
2081 
2082 
2083 
2084 
2085 
208() 
2087 
2098 
208<3 
2090 
2091 
2:92 
2093 
2C94 
2095 
209fe 

2C98 
2099 
21X 



2132 

= 134 

2105 
elOfe 



3 ; 



005312 
005312 
005314 
005320 
005324 
005330 
005338 
005340 
005342 
005344 
0053% 
005350 
005352 
005356 
0053b2 
005354 
005370 
005374 
C0537& 
005400 
005402 
005404 
005405 
005410 
00541C 
005412 
005414 
005417 
005424 
005432 



005434 
005442 
305450 
J0545& 



MOOO'* 
005037 
005037 
005237 
042737 
005327 
000001 
003022 
012737 
OOOQOl 
005340 
104401 
0137% 
104405 
104401 
013700 
0014aj 
000005 
004710 
000240 
000240 
000240 

000137 
00211: 
377 

050Q4C 
300043 



001132 
301205 

001 IOC 

10000c 



OCiiOC 



005417 
001 100 

005414 
000042 



042412 
2515C1 



03C 

34c Ufa 

020123 



217737 173510 
017737 l73bOC 
Q17727 173570 



001162 
MIlfa4 
001 lb& 



ENC DF POSS POu'"fINE 



14:40 Pm3E 43 



♦INCREMENT THE PftSS NUMBER iSPASS) 

tINDICfl'E END-OF -PROGRAM flF'ER 1 PASSES THRL THE PROGRfir 
♦^YPE "END PASS IXXXXX" i WHERE XXXXX 15 A DECIMAL NUMBER 
»IF THERE5 A MONITOR GO TO IT 
♦IF THERE ISN'T JUMP TO S'ARTl 



5E0P: 



SEOPCT: 
SENOCT: 

$GET42: 
SENDAC: 

tOOAGN: 

SRTNPO: 
SENULL: 
SENDMG: 



SCOPE 

CLR 

CLR 

INC 

BIC 

DEC 

.UORD 

BGT 

MOV 

.UORO 

SECPCT 

TYPE 

MOV 

TYPOS 

TYPE 

MOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

JMP 
.UORD 
.BYTE 
.flSCIZ 



ITSTNM 
ITIHES 
SPA55 

•100000, $PASS 

(PCH 
1 

SDOAGN 

(PCH,a(Pc> 
1 

.tENOMG 
iPfiSS.-iSP) 

.SENULL 
ii42.R0 
SDOA&N 

PC.iRO- 



a(PC)* 

START 1 



;ZERC THE TEST N^JMBER 

:2ER0 THE NUMBER OF ITERA'IONS 

: INCREMENT THE PASS NUMBE" 

:DU*T AL^GU A fCG. NUMBER 

:LOOP' 

;:YE5 

;: RESTORE COUNTER 



TYPE "END PASS •" 

SAVE IPASS FOR TYPEOL^ 

GO TYPE—DECIMAL ASCII UI'^ SliN 

TYPE A NULL CHARACTER 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE UCRLD 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACT 11 



REBORN 



-i.-i,u ::NLLu CHARfiCf£R S'^ING 

^iSxlS 'END BASS 



.SBTTL CT3RC: ROUTINE FOR GETTING PRCS. RKER. PkZS 

GT3RG 

SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKC5. RK'ER. RkCS 
TO fREGO^ IREGl. IREG2 RESPECTIVELY BEFORE TYPING CL'^ Ah 
ERROR MES^GE. 
CA».L: JSR PC.GT3RG 



T3RG: 



MOV 
MOV 
MCV 
P'^S 



SRKCS.tREGO 
SRKER. IREGl 
aRKDS.SREG2 
PC 



GET RKCS 
GET RCER 
GET RKDS 

Exr FROM 'HIS awBRClNE 



C04 
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ROU'^IfC FOR GETTING RKCS. RKEP. PkDS 



211"* 

3* 'fi 

Mi 
2122 

212H 
r • X 

2127 
2128 
2129 
21 3C 

2132 
s- -s-j 

2134 
2135 
2136 
2137 
2138 
213S 
2HC 
2141 
2142 
2143 

214^ 

2145 
SlHfe 
2147 
21-»S 
2145 
2.au 

2152 

5 154 
clSE 
2:56 
£157 
2158 

2:53 
|:fe4 



00S4fe2 
0G54b>> 
Q05472 



204737 
21-737 
MG2:7 



005474 
005502 

005512 
005514 



Oi7b37 
0fc271fc 



305434 
I735fat 



:oii: 



30000C 
000002 



3C:2b4 



005337 001254 

001375 

00C0C2 



.SB^T^ CT4RG: ROUTINE FOR GET'^ING RKCS. RKER. RKSS. CkOP 

"T4RG 

luBROUTItC FOR TRANSFERRING CONTENTS OF RKCS. P»(ER. PKD5 
RKdS TO SREGO. SREGl. IREG2. SREG3 PESPECTlvL^ BEFORE 
TYPING OUT ftN ERROR PCSSAGE. 
:PLL: JSR PC,GT4RG 
5TMRG: JSR PC,CT3RG 

nov aR^op,SReG3 

RTS PC 

.SBTTL DELAY: TIME DELAY ROUTINE 

DEi-flY 

THIS ROUTINE PROVIDES fi VARIABLE TIflE DELAY. THE CALL FOR >I= 

ROUTINE IS AN ENCODED 'TRAP' INSTRUCTION. ^ 

CALL: DELAY .N N IS ANY OCTAL NO. FRON 1 TO 177777 

THE DELAY PROVIDED IS 7.5N US i CONVERT N TO DECINAL) FOR 11 /2C 

IF^THE^USER UANtI TO CHANGE THE DELAY TIME (EXMP: JHOPTER DELA^ JC 
GET A TIGHTER SCOPE LOOP) THE VARIABLE 'N' FOLLOWING 'DELAY- SiO'jlC 
BE CHANGED TO SUIT THE INDIVIDUAL NEED. 



DE^A.Y; 
IS: 



MOV 
ADD 

DEC 
SNE 
RTI 



J.SP)/IHER 
•2.. 5^ 

TIMER 
IS 



.SBTTl CON.RESE^ 



:G£T 'AMOUNT' iN; FOR JHICH 
: DELAY IS TO BE PROVIDED 
•.ADJUST STACK POINTER ''C SKl^ :vEP 
; COUNT DOWN TO 0 

: RETURN TO MAIN PROGPAT 



CONTROL REST ROUTINE 



"ON RESET 

THIS ROUTINE ISSUES A CONTROL RESET AND^UAITS FOR 
THE 'CNTRL ROY' FLAG TO SET. WHEN T« Plr^S^aE^S . 
AN EXIT IS nMX, OUT OF THE ROUTINE. IF 'CNTRL-RDY' 
DOES NOT SET UITHIN A CERTAIN TIME AN ERROR MESSAGE 
CNT RDY DIDN'T SET 

PCsXXXXXX RKCS=YYYYYY , ^ 

IS GIVEN. NOTE THAT XXXXXX IS THE PC UHERE 'CNT. RESET' OP 

IS :allec. 

;;Auw: CNT, RESET 



.SBTTL CN'^.RDt-; 



JmIT FCR CCN^ROl READY HC-'INE 



:rk:e.p:i i9-ap«;-"" csii-^ 
21b* 

aire 

2171 



^ES'^ 1 



•172 
2173 

2176 

2179 
217S 
2IBQ 
2181 
2182 
2183 
2:9M 
2185 
218b 
2187 
21B8 
2189 

2:qc 
2:'3i 

21% 
2193 
2W 
2195 
21% 
2iS7 
2198 
2199 
2200 
2201 
2202 
2202 
2204 
2205 
220fe 
22C7 
2208 
22C9 

22:: 

2211 
2212 
2213 
2214 
2215 

22:b 

2217 

5212 
s: ■ a 



00551b 
00S52S 
005532 
30S53S 
005540 
005544 
0055% 
005552 
005554 
005582 
005564 
0055bb 
005570 
005574 

OOSbOM 
005804 
005808 
005812 

005814 
005820 

005832 
005832 
005838 



012777 
012737 
000402 
005037 
105777 
100435 
005237 
M1372 
032777 
X1028 
104401 
00121b 
104401 
000403 



011b4b 
182718 
104402 

104401 
000404 



017748 
1044w2 



005840 3C00C2 



000001 
177500 

001170 
173504 

001172 

020000 



005576 

000002 
305622 

173412 



173524 
001170 



D04 

»1flCMl 30.1C46. Ob-JJN-77 14:40 PftCE 4c 
CNT.RCY: UAIT FOP CONTROL REftD>' POU'I'C 

THIS^ROUTINE U«ITS FOR THE CONTROL REflOY BIT TO SET fitC UME** I' 
SETS EXITS OUT. IF UITHIN A CERTAIN TIME CNTRL ROY DOES 
NOT SCT (H ERROR IS REPORTED. UfilTlNC TIME IS 883 HS FDR 11 cZ 
— FOR 11/45 UITH BIPOLAR NEflORY. 
CNT.ROY 



175 
CALL: 

Cn.rst 



CN.RDY: 
IS: 



r3356 21: 



bSS: 



&&S: 



3S: 



67$: 



nov 
nov 

BR 

CLR 
TSTB 
BUI 
INC 

^ 

BNE 

TYPE 

ISW 

TYPE 

BR 

.A3CIZ 

nov 
SUB 
TYPOC 

TYPE 
BR 

.flSCIZ 

lOV 
TfPOC 

RTI 



•l.aRKCS 
•-500,SRE(i3 
CN.RDY*4 
SRE(;3 
9RKC5 
3S 

SRE^3 
IS 

•SU13.S5UR 
3S 



,65$ 

<15>' 



12' p:=' 



(SP).-iSP. 
•2.(SP) 



,67$ 
e>6$ 

' RKC5=' 
aRKC5.-(SP) 



: ISSUE A CONTROL RESE' 
:SET UP COUNT 

;SKIP OVER CN.RC^ 

DID CNTRL -ROY SET' 

YES. EXIT 

UAltED LONG' 

IF NOT. iO BAK S UAr 

INHlBit TYPEOUT' 

IF YES, SKIP TYPEClT 



::TYPE ASCIZ STPINi 
::GET OVER THE AS'IZ 



GO TYPE PC IN THE rWIN ROCGPh", 
UHERE ERROR OCCURRED 
:TYPE ASCIZ STRING 
:GET OVER THE ASCIZ 



:GET HKCS 
;G0 TYPE IT 

: RETURN FRON THIS 
•.ROUTINE TC THE JlfilN 
:PROGRAn 



•'rilS PAP-^ OF THE PROGRAM CONTAINS THE COflflON ROUTINES :A..^ED 
;FROM THE SYSMACSflL PACKAGE 

« 

.SBTTL SCOPE HANDLER ROUTINE 

4thIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT UILL INGREDIENT 

*AND LOAD TJ€ TEST NUMBER ($TSTNri) INTO THE DISPLAY REG. iDISPLAY<7 

»ANO LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY< 15:DB> 

♦THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

♦SU14=1 LOOP ON TEST ^ 

«SU11=1 INHIBIT ITERATIONS 

♦SU09=1 LOOP ON ERROR 

«SUOS=l LOOP ON TEST IN SUR<7:Q> 

♦'"ALL 

*^ SCOPE ::SCOPE=ICT 



:r^:£.pi: 



-E. RKU bhsic logi: test 1 



flftCYll 30 110%) Ob-JUN- 
SCOPE HANDLER ROUTINE 



E04 
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2222 

3223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

=233 

2234 

2235 

==3fe 

2237 

2238 

2239 

2240 

2241 

?242 

22i3 

2244 

2245 

224fc 

2247 

2248 

2249 

=250 

2251 

2252 

2253 

2254 

2255 

2258 

2257 

2258 

2259 

2280 

2281 

2282 

2283 

2284 

2285 

2288 

2287 

228B 

2289 

2270 

2271 

2272 

2272 

=574 

227= 



005842 
005842 

005644 
005852 



104407 
032777 
001111 



005854 000418 



005858 
005882 
005670 
005674 
005700 
005702 
005704 
005710 
005712 
005712 
005720 
005722 
005730 
005732 
005736 
005740 
005746 
005750 
005756 
005760 
005768 
005770 
005774 
008000 
008002 
008010 
008012 
008016 
008020 
o08024 
008032 
006034 
008042 
008050 
008054 
008080 
008084 
008070 
008078 
006104 
008110 
008112 



013746 
012737 
005737 
012837 
000463 
022828 
012837 
000423 

032777 
001404 
127737 
001462 
1057?7 
001421 
123737 
101015 
032777 
001404 
013737 
000443 
105037 
005037 
000415 
032777 
001011 
005737 
001408 
005237 
023737 
002021 
012737 
013737 
105237 
011837 
011837 
005037 
112737 
013777 
013718 
000002 
000050 



040000 173286 IS 



000004 
005702 
177080 
000004 



000004 

000400 

173212 

001103 

001115 

00 1000 

OOlllC 

001103 
001208 

004000 

001100 

001104 
001208 

000001 
008112 
001102 
001108 
001110 
001210 
000001 
001102 
001108 



ISCOPE: 

CKSUR 
BIT 
BNE 

:llltlSTPRT OF 

ixTSTR: BR 



NOV 

000004 nov 

TST 
MOV 
BR 

51: CMP 

tlOV 
BP 

8i: ;lllltEND OF 

BIT 



173220 
001102 

CD1103 
173162 
0nil06 



001104 

001104 
001208 



con 15 

173038 



2S: 



75: 
4i: 



173130 31: 



IS: 

S5VLA0: 



SOVER: 



SflXCNT: 



BEG 
CflPB 
BEQ 
TSTB 
BEQ 
CMPB 
BHI 
BIT 
3EQ 
flOV 
BR 
CLRB 
CLP 
BR 
BIT 
BNE 
TST 
BEQ 
INC 

CUP 

BGE 

nov 
nov 

INCB 

nov 
nov 

CLR 

novB 

nov 

nov 

RTI 
50 



•BIT14.JSUR 
SOVER 
CODE FOR THE XOR 
8S 

atERRVEC.-(SP) 
•SS.atER^VEC 
atl>7080 
(SP)*.a»ERRVEC 
ssvlaO 

(SP)*, (SP)* 
(SP)*,aiERRVEC 
7S 

CODE FOR THE XOR 
•BITOB.aSUR 
2$ 

aSUR.STSTNN 

soveA 

SERFLG 
3S 

SERMPX.SEPFLG 
3S 

lBIT09.aSUR 
4$ 

SLPERR.SLPfiCR 

SOVER 

SERFLG 

STinES 

1» 

lBiTll,aSUR 
IS 

SPASS • 
IS 

SICNT 

STinES, SIGHT 

SOVER 

•1. SICNT 

$n^[CNT,STIf€S 

STSTNM 

(SP),SLPA0R 

(SP).$LPERR 

SESCftPE 

•l.SERNflX 

ST^TNn.aDISPLRY 

SLPflOR,(SP) 



:;TEST FOR CHANGE IN SOF'-SUP 
; ;LOOP ON PRESEN' TEST' 
: :YE5 IF SUI4=1 
TESTERttlll 

;IF RUNNING ON THE "XOR" TESTER >ft^GE 

;THIS INSTRUCTION TO A "NOP" iN0P=24:- 
SRVE THE CONTENTS OF THE EPROP /EC'SP 

;SET FOR TIHEOUT 

;TinE OUT ON XOR' 

; RESTORE THE ERROR VECTOR 

;G0 TO THE NEXT TEST 

; CLEAR THE STACK AFTER A TinE C-' 
RESTORE THE ERROR VECTOR 

IlOOP on the PRESENT TEST 

lESTERttllt 

;L00P ON SPEC. TEST" 

:BR IF NO 

;0N THE RIGHT TEST' SUP'7::. 
;BR IF YES 

:HAS AN ERROR OCCURRED' 
;BR IF NO 

NAX. ERRORS FOR THIS TEST CCCUPCE:' 
;BR IF NO 
;LOOP ON ERROR' 
:BR IF NO 

:SET LOOP ADDRESS TO LAST SCCPE 



ZERO THE ERROR FLAG 

CLEAR THE NUHBER OF ITEPATICNS '2 -Ai-E 

ESCAPE TO THE NEXT TES' 

INHIBIT ITERATIONS' 

BR IF YES 

IF FIRST PASS OF PROGRAn 
INHIBIT ITERATIONS 
INCREHENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS 'lADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION CCUN'-ES 
SET NUHBER OF ITERATIONS TO DC 
COUNT TEST NUMBERS 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROn ERROR ADCfiE£S 
ONLY ALLOW ONEil) ERROR ON NEX' 
DISPLAY TEST NUHBER 
FUDGE RETURN ADDRESS 
FIXES PS 

NAX. NUNBER OF ITERATIONS 



.SB'^'L ERROR HANDLER ROJTINE 
:#=Ui5=l HAuT ON ERROR 



F04 



2279 

2279 

229C 

22S: 

2282 

2283 

229M 

228S 

2296 

2287 

2298 

==9<3 

229C 

2291 

2292 

==93 

=294 

229S 

25% 

2297 

2298 

2299 

230C 

23C1 

2302 

23C3 

23CM 

2305 

230& 

23C7 

2308 

23DS 

2313 
5^ *T 

3- • 3 

2313 
23l«* 
23ls 
231c 
231' 
2318 
2319 

5321 
2322 
2322 
232S 
2325 
2326 
2327 

£330 

3"* I 

«» ««« * 

? * 



006114 
006116 
006122 
006124 
006132 
006136 
006142 
006150 
006156 
006164 
006166 
006172 
006176 
006204 
006206 
006212 
006214 
006216 
006220 
006226 
006230 
006234 
006242 
006244 
00625C 
006254 
306256 
006262 



006264 
006264 
006270 
006272 
006274 
0063X 



TEST 1 nfiCYll 30(1046) 06-JUN-77 14; i2 eftiE -t- 
tRROR HmNDLER ROJ'INE 

tSUi3=l INHIBIT ERROR TyPEOL'S 

»SU10-1 8ELL ON ERROR 

»SU09=1 LOOP ON ERROR 

»SU12=1 CYCLE ON ERROR TO PREVIClS 'SCOPE' 

tCO TO SERRTYP ON ERROR 



306306 

206310 
206512 
:C63i4 



173012 

If: 

OClllfe 
201114 
172754 



300046 21: 



1C44C7 
105237 
001775 
013777 
005237 
011637 
162737 
117737 
032777 
001004 
004737 
104401 
023737 
001403 
005777 
100002 
00000^ 
10H4u/ 

032777 OlOOOC 172712 3S: 
001402 
013716 
032777 
001402 
313716 
005737 

001402 

:i3ri6 

200002 



001103 

001102 
001112 
001116 
000002 
172742 
020000 

006264 
001213 
000042 

172726 



001106 
001000 

OOlllC 
001212 

001212 



SERROR: 
'S: 



r2&''fc 



41: 



S: 



CKSUR 
INC8 
BEQ 
nov 

INC 

nov 

SUB 

flOVB 

BIT 

BNE 

J5R 

"YFE 

CMP 

BEQ 

TST 

BPL 

HftLT 

CKSUR 

BIT 

BE2 

NOV 

BIT 

BEQ 

nov 

TST 

BCa 

flOV 
RTI 



SERFLG 
7J 

STSTNN.aCISPLH^ 

SERTTL 

iSP).IERRPC 

•2^$tRRPC 

aS^RRPC.JITE^E 

•SU13.S§UR 

2S 

PC,3ilERP'YP 

•1142. Sl4b 

.♦10 

asuR 

3S 



•sui2.a5«iP 

.*b 

SLPfiOP.«SP 
•5i409,ilS.JR 
4t 

SLPERR. SP- 

lESCAPf 

5S 

lESCftPE.^SP 



CHECK FOR SOFTUftRE SurCn E-^'= 
SET THE ERROR FLAG 
DON'T LET THE F.AG GO TO ZEP: 
CISPLfiY TEST NUMBER ftNO ERPCP 
COUNT THE NUMBER OF ERRORS 
i£T fiODRESS OF ERROR iNS'RjC'I 

S'RIP ftrc SAVE 'HE erp:f :■£" 

SKIP TYPEOUT ir SE' 

Sl>:? TYPECUTS 

GD TO USER ERROR RO-'INE 

ARE UE IN ACTll ALTOIA'IC "III 

IF YES, HALT ON £PRC«= 

HALT ON ERROR 

SKIP IF CONTINUE 

HALT ON ERROR! 

CHECK FOR SOFTWARE Stal'C^ 

SU 12 SET' 

NO. BRANCH 

ADJUST RETURN ADRE5 'OR S-lr 
LOOP ON ERROR SkUZh 5E'^ 
BR IF NO 

PUDGE RETURN FOR ^OCFING 
CHECK FOR AN ESCAPE AODPEEE 
BR IF NONE 

FUDGE RETURN ADDRESS ^0= £=:^- 
RETURN 



ERROR MESSAGE ^/^EXT RClTINE 




104401 
010046 
005000 
153700 
001004 



006302 013746 



001213 
00111- 
201116 



lERRTYP: 



104402 

000426 

35i, 
'in 



TYPE 
MOV 

vuR 

BISB 
BNE 

nov 

^/POC 
BR, 

AS. 

^5- 



.ICRLF 

ftO.-tSP) 

RC 

aiirEMB.oc 

IS 

lERRP;.- SF 



6t 

»C 
PC 



"CARRIAGE RE'JRN- & ".INE ^EEr 
5AVE RC 

PICKUP THE ITEM INDEX 

IF ITEM NUMBER IS ZERC. JUS^ 
-^YPE THE PC OF 'HE ERTOR 
SAVE lERRPC FOR TYPEOL'T 
ERROR ADDRESS ^ 
GO TYPE— OCTAL ASCII (AL.. DILI'S 
OE' OUT , . 

mcjjs' ^he indev sc^'w: i!.*;- 

MiOPi- FOR 'HE EBP08 *mSw£ 



GG4 



533M 
=335 

=337 
2338 
533<3 
23h: 
23h: 
23H2 

23H3 
=•344 

!>5 
23tfe 
23H7 
=3H8 
=3H<3 
235C 
2351 
2352 
2353 
23SH 
2355 
2356 
23S7 
2356 

23s: 

2381 
23&2 
23&3 
23fe-* 
23b5 
23&& 
23fc7 
23&e 
23b<3 
237C 
2371 
£372 
2373 
2374 
2375 
237t 
22"'7 
2376 

239C 
23S: 
2362 
2383 
2364 
2385 
238& 
2387 
2368 



006320 
206322 
30&32& 
00b332 

006336 

006350 
006352 
006354 
006356 
006362 
006364 
006366 
006370 
006374 
006376 
006376 
006400 
006402 
006404 
006406 
006412 
306'*14 



006420 
006426 
006430 
006434 
006436 
006442 
006446 
0C6-*52 
3C6454 
006462 

006464 
006470 
006474 
00650C 
0065C2 
0065G6 



0063QC 
062700 
012037 
001M04 
104401 
000000 

001404 
104401 
000000 
104401 
011000 
001004 
012600 
1Q44C: 
0OC207 

013046 
104402 
005710 
001770 
104401 
00077: 
022040 
306422 



022737 
001074 
105777 
100071 
117746 
042716 
022726 
001062 
122727 
001456 

104401 
104401 
013746 
104402 
104401 
X5046 
005246 
1057-? 



001272 
006336 



001213 
00635" 



001213 



3064 It 

000 



000176 

172512 

172504 
177600 
00CQC7 



001134 2C2C: 



027145 
307152 
200176 

3C ' * b>3 



IhOI: 30.1346, 36-JJN-77 IHr^C 
EPRCR •'ESSMiE "^YPEO'JT ROUTINE 



2S: 
3S: 

41 
5S 
61 



9S: 



MOV 

BEO 

TYPE 

.UORD 

* "»£ 

Ho.' 

BEQ 

TYPE 

.UORD 

TYPE 

nov 

BNE 
flOV 
TYPE 
BT5 

flOV 

TYPOC 

TST 

BEG 

TYPE 

BR 

.ASCi: 
.EVEN 



•Jerrtb.ro 

.R0'*.2i 
3S 



,|:RwF 

!j5oj*.4i 

5S 

0 

.ICRLF 
(RO).RO 
7$ 
SP)*.R0 
.ICRL^ 
*C 

a(RO;*.- sp 

(RC) 

hi 

.BJ 



PniE 4: 



FORM TABLE POINTER 
PICKJP "ERROR riESSfiOE" PCITEs 
SKIP TYPEOUT IF NO POINTER 
TYPE THE -ERROR fCSSAGE" 
"ERROR rtSSfiGE" POINTER iCES hE'E 
"CftRRIftCE RETURN" 
PICKUP^ftTA HEPOE 
SKIP TYPEOUT IF 0 
TYPE THE "DATfi HEfiDER" 
"DfiTfl HEfiDER" POINTER G0E5 mEPE 
"CfiRRIfiGE RETURN" & "LINE FEES" 
PICKUP "DflTfi TRBLE" POINTER 
GO TYPE THE DATfi 
RESTORE RO 

"CARRIAGE RETURN" i "-INE ^^EE:" 
RETURN 



^JlNTE^''*' 



SAVE S(RO)* FOR TYPEOLT 
GO TYPE— OCTAL ASCII 'All 
IS THERE ANOTHER NUMBE*" 
BR IF NO 

TYPE TU0i2) SPACES 
LOOP 

^*40i2) SPACES 



,5BTTL TTY INPU"^ ROUTINE 



20: 142 ICKSUR 



!^NABL LSB 

• •#»*«#»»##«#»♦##*»««#»»»#♦♦#«###»##♦»«#♦####♦♦♦♦♦♦♦♦♦•♦♦♦♦♦♦♦ 

liSOFTUARE SWITCH REGISTER CHANGE ROUTINE. 
:«ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WI.^ 
♦SERVICE T« TEST FOR CHANGE IN 50FTUARE SuiTCH REGISTER 'Rfi= 
♦UHEN OPERATING IN TTY FLAG NODE. 



CNP 
BNE 
TSTB 
BPL 
NOVB 
BIC 

crff» 

BNE 

CflPB 

BEQ 

TYPE 

■^/PE 

NOV 

TYPCC 

'YPE 

CLP 

CP 

T5'3 



ISUREG.SUR 
151 
3ITKS 
151 

MTKB.-fSPi 
•tCl7^,iSP. 

isi 

iAUi'OB.ll 
15S 

.SMSiJR 
SuREi.- 5c. 

.IMNEU 

-.SP 
-.£p 

ajvs 



IS THE SOFT-SUR SELEC'El' 
BRANCH IF NC 
CHAR THERE' 

IF NO. DON'T WAIT mRCLNC 

SAVE THE CHAR 

STRIP-OFF THE ASCII 

IS IT A CONTROL G" 

NO^ RETURN TO USER 

ARf UE RUNNING IN AlTC-^CCE' 

BRANCH IF YES 

ECHO THE CONTRCL-G .'G 

'YPE CURRENT CONTENTS 

SAVE SUREG FOR TYPEO'-' 

GO TYPE—OCTAL ASCITh^.. 2I:: 

PRONPT FOR NEu SUP 

CLEAR COUNTER 

^HE NEU 5UF 

ChhP 'HE»E^ 



H04 



2392 
2393 
239M 
2395 
23% 
2397 
2398 
2399 
2tX 

2'*:: 

2'*Cc 
2-^Ofe 

3unq 



2>*12 
2-i3 
241-* 
2^:5 

2-*:6 

2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
242fc 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
£434 
2435 
243& 
2437 
2438 
2429 

24HC 
2441 

2"*4«+ 



29::-. 



3Qfc5lb :c:375 

3afc52C ::7-4b r2^22 
006524 3427 ib r^'b2Z 



01^530 021&27 00Q025 

0C6534 X1005 

X=>53b 104401 007140 

001542 a&2706 30C00& 

006546 000757 



306E5C 
006554 
0065i'>6 
a065£2 
006564 
006572 
006576 
006602 
006610 
006612 
006620 
006622 
006626 
006632 
00663H 
006640 
006642 
0066% 
006652 
006654 
006656 
006660 
006662 
006666 
006672 
006674 
006700 



321627 

001022 

005766 

001403 

016677 

062706 

104401 

123727 

001003 

012777 

000002 

004737 

021627 

002420 

021627 

003015 

042726 

005766 

001403 

006316 

006316 

006316 

005266 

056616 

0007D7 

104401 

00072C 



306712 105777 
:067:fe 13C27E 



3C0C15 

00C004 

000002 
0CC0Q6 
001213 
001135 

OOClOO 

00''344 
000060 

C0Q067 

000C6C 
000002 



000002 
f r / fb 

001212 



"Hs;^,: 33 1346. 3b-: 



PMiE 4b 



17234b 

00CD3: 
1''2324 



9S: 
23S: 

ICS: 



US: 
i4S: 



151: 
Ibi: 



171: 



ISS: 



.DSABL 



BPL 

10VB 
BIC 



CUP 

BNE 
TYPE 
ADD 
BR 



cnp 

BNE 
'5' 

9Eu 

MOV 

ADD 

TYPE 

CnPB 

BNE 

NOV 

RTI 

JSR 

CUP 

BLT 

CUP 

BGT 

BIC 

TST 

BEQ 

A5L 

A5L 

A5L 

INC 

BIS 

BR 

Ti-PE 

BR 

LSB 



It;:'*. 5F 



oP . 125 
101 

.ICNTL- 

ib.SP 
19i 



iSP-.ilS 
IbS 

4(SP) 
Ui 

2(SPi.asup 

•b.SP 
.IcRLF 
ilNTflG.ll 
15S 

•lOC.aSTKS 

PC.ITYPEC 

vS^).t60 

18S 

iSP).ib7 
18S 

ibO.CSPj* 

2:5^) 
17S 

(5P) 
CSF5 
(SPJ 
2(SP) 

-2(5P».(SF 
75 

.lOUES 
^OS 



NOT TRi hGhIN 

::PICK UP CHAP 
::nfiKE IT 7-Br AS! 



IS r A CONTROL-U" 
BRANCH IF NOT 
fES. ECHO CONTRCL-J 
IGNORE PREVIOUS iNPw 
^E'"S TRY IT AGAIN 



IS IT A (CR^' 
BRANCH IF NO 

YES, IS IT THE FIRS' >AC- 
BRA^CH IF YES 
SAVE NEU SUR 
CLEAR UP STACK 
ECHO (CR' AND 'lF- 
RE-ENABLE TTY KBD IN'EOR^C' 
BRANCH IF NOT 

RE-ENABLE TTY KBC IN'EPP-O^ 

RETURN 

ECHO CHAR 

CHAR < 0' 

BRANCH IF YES 

CHAR > 7» 

BRANCH IF YES 

STRIP-OFF ASCII 

IS THIS THE FIRST CriAfi 

BRANCH IF YES 

NO. SHIFT PRESENT 

CHAR OVER TO MAKE 

ROOn FOR NEU ONE. 
KEEP COUNT OF CHAR 
SET IN NEU CHAR 
GET THE NEXT ONE 
TYPE '>'CR>(LF> 
SIMULATE CONTROL-U 



::##»♦«♦«»#»##»##«#»♦♦»#*♦♦*##♦###♦*♦*♦♦»»»»*♦*♦#♦#♦♦«»«#»♦»«»♦♦ 

:4thIS ROUTINE UILL INPJT A SINGLE CHARACTER FROM THE TTY 
; »CALL 



;* 



RDCHR 
RETURN HERE 



000004 000002 
172226 



IRDCHR: NOV 
NOV 

iS: TSTB 
BPl 



(SPi,-(SP) 
4iSPl.2^£Pj 
SITKS 
IS 



INPUT A SINGLE CHARACTER FPCfl ^hE 
CHARACTER IS ON THE STACK 
WITH PARPY BIT STRIPPED jFC 



:PUSH DOUN THE "Z 
:SAVE THE PS 
:UAIT FOR 
:h character 



£450 
2451 
2452 
2-^53 
2M54 
2M55 
=456 
2457 
2458 
2459 
24bC 
=4bl 
24fe2 
24b3 

2464 

2Mb5 
2%b 

2%r 

2-*b6 
2Hb9 
2470 
2M71 
2472 
2473 
2474 
2475 
247b 
2477 
2478 
247g 
2430 
24B1 
2482 
2483 
2484 
2485 
24ab 
2487 
2488 
2489 
24% 
2491 
2492 
2-><33 
2494 
2495 
249t 
2497 
2498 
2499 
25X 
25C1 



006720 

006742 
00b74w 
006750 
006752 
006756 
006762 
006766 
006770 
006772 
007000 
007002 
007010 
0C7312 
007320 



ir^bb 

100375 
117746 
042716 
022627 
001366 
000750 
026627 

002 ;:7 

026627 
003003 
042766 
Q0C002 



172174 



TES' 



000004 

S3 



Mm. 



INE 



06-JUN- 



IG4 

14:4C 



2S: 



172170 
1 77600 
000021 



000004 
000004 
300240 



00C140 
C0C175 
000004 



3S: 



4J 



MCV& 
BPL 

rovB 

BIC 
CMP 
BNE 
BR 
CMP 
BL"^ 
CMP 
BGT 
BIC 
RTI 



aSTKB.4(SP) 
• tCU77>.4(5PJ 
4(SP).i25 

3iTK5 
2S 

a$TKB.-(5P> 

(SP)*.ii21 

2S 

IS 

4CSPMi4C 
4J 

4iSP).ll7S 
4$ 

•40,4(SP) 



PftiE 4" 



READ THE TTY 

GET RID OF jUNK IF ANY 

15 IT A CONTROL 

BRANCH IF NO 

UAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7-BlT ASCII 

IS IT A CONTROL-0' 

IF NOT DISCARD IT 

YES. RESUME 

IS It upper CASE' 

BRANCH IF YES 
IS IT A SPECIAL CHAP" 
BRANCH IF YES 
MAKE IT UPPER CASE 
GO BACK TO USER 



ijHIS ROUTINE UILL INPJT A STRING FROfl THE TTY 
*^^'"'"" INPUT A STRING FROM THE TTY 



RDLIN 
RETURN HERE 



0C7022 


010346 






SRDLIN: 


MOV 


R3. -CSP. 


UU<'Uc4 


Ulc7U3 


0071 JU 




la: 


nuv 


Is 1 1 T in, nj 


007030 


022703 


007140 




2S: 


CMP 


•$TTYIN+B.,R3 


007034 


101405 








BLOS 


4$ 


007036 


104410 








ROCHR 


iSP)-t-,iR3) 
•177, {R33 


007040 


112613 








MOVB 


007042 


122713 


000177 




10$: 


CMPB 


0070% 


001003 








BNE 


3S 


007050 


104401 


001212 




4$: 


TYPE 


.iQUES 

is 


007054 


000763 








BR 


007056 


111337 


007126 




3S: 


MOVE 


(R3),9$ 


007062 


104401 


Q07126 
000015 






TYPE 




007066 


122723 






CMPB 


ll5,CR3)* 


007072 


001356 








BNE 


2S 


007074 


105063 


177777 






CLRB 


-1(R3) 


007100 


104401 


001214 






TYPE 


,$LF 


007104 


012603 








nov 


!SP)"<',R3 


007106 


011646 








MOV 


(SP),-(SP) 

4(SP).2(SP) 

iiTTY!N.4lSP) 


007110 


016666 


000004 


000002 




MOV 


007116 


012766 


007130 


000004 




MOV 


007124 


000002 








RTI 




007126 


000 






9$: 


.BYTE 


0 


007127 


000 








.BYTE 


0 


007130 


000010 






STTYIN: 


.BLKB 


8. 


007140 


052536 


005015 
006507 


000 


SCNTLU: 


•ASCIZ 


/tU/<15>'.12> 


007145 


136 


000012 


SCNTLG: 


.ASCI2 


/tG/<15>M2' 


007152 


005015 
020075 


053523 


020122 


SMSUR: 


.ASCIZ 


<15><12'''SUR 


007160 


000 










007163 
007170 


040 


047040 


053505 


SMNEU: 


, ASCIZ 


/ NEW = ' 


036440 


000040 











ADDRESS OF FIRST CHARACTER aiLL BE CN 'ri 
TERMINATOR UILL BE A BYTE OF ALL C'5 

SAVE R3 
GET ADDRESS 
BUFFER FULL' 
BR IF YES 

GO READ ONE CHARACTER FROM 'ME 
GET CHARACTER 
IS IT A RUBOUT 
SKIP IF NOT 
TYPE A 

CLEAR THE BUFFER AND LCQc 
ECHO THE CHARACTER 

CHECK FOR RETURN 
LOOP IF NOT RETURN 
CLEAR RETURN (THE 15) 
TYPE A LINE FEED 
RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

RETURN 

STORAGE FOR ASCII CHAR. "^C TY^E 
TERMINATOR 

RESERVE 8 BYTES FOR TTY INPLT 
CONTROL "U" 
CONTROL "G" 



,58TTL TVPE ROUTINE 



25:2 

2505 



p. . 



J34 



2506 
2509 
2510 

251: 

2512 
2513 
2514 
2515 
251& 
2517 
2Sie 

n& 

2521 
2522 
12 



2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
||40 

2542 
3543 
"544 

2545 

115! 

2548 
2549 
2550 
2551 



2554 

3CCC 



■E ShSIC logic TES' 1 riACYll 3CU04fa) Ob-JUN-77 

•;q-SPP-^7 09:14 TYPE ROUTir€ 

ItROUTINE TO fYp"flSCI2 MESSftGE. MESShGE HUST TERMINflTE WITH 0 BYTE 




007174 

¥M 

007204 
007206 

17210 
17214 

007222 

m> 

007232 
007236 
007240 
007244 
007246 
007250 
007252 
007254 
007260 
007262 

007274 

007300 
007304 

& 

007316 



105737 

im 

000407 
010046 
017600 
112046 

m 

012600 

^oo4^ 

122716 
001430 
122 16 
001 j06 
005726 
104401 
001213 
105037 
000755 
004737 

iEisiB 

0137H6 

105366 
00277C 
004737 
105337 
00077D 



001157 

000002 

000002 
0000 11 
000200 

007410 

007344 
001156 

Q0U54 

OCOOCl 

Q07344 
0074 IC 



QQ7320 112716 00004Q 

i5C73c4 004737 0C7344 

007330 132737 00C007 0074 IG 

mm mm 

2C'342 30C724 



»N0TE2 

«N0TE3 
* 

*CflLL: 
*1) USING A 
« TYPE 
tOR 

* TYPE 

* MESADR 
* 



"IRULL'CONTAINS THE CHARACTER TO SE USED A5 THE ...... 

IFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
JFILLC CONTfllNS THE CHARACTER TO FILL AFTER. 



STYPE: 


TSTB 




BPL 




HALT 




BR 


IS: 


MOv 


MOV 


2S: 


MOVB 
BNE 


60S: 


TST 

MOV 


3S: 




45: 


CMPB 




BEQ 




CMPB 




BNE 




TST 




TYPE 




JCRLF 




CLRB 




BR 


5i: 


JSR 


6S: 


CMPB 


BNE 




MOV 


71: 


DECS 




BLT 




JSR 




DECB 




BR 



TRAP INSTRUCTION 
.MESADR 



JTPFLG 
IS 

3S 

RO,-(SP) 

a2{SP).R0 

(RO)*.-(SP) 

?ip)* 

(SP)+.RO 
•2. (SP) 

•HT.iSP) 
BS 

•CRLF, (SP- 
SS 

(SPH 



SCHARCNT 
2S 

PC.$TYPEQ„ 

$f!llc.:3P)- 

2S 

inull.-^sp^ 

KSP) 
6S 

pc.stype: 

SCAARCNi 

7$ 



: HORIZONTAL TAB PROCESSOR 



BS: 
9S: 



MOVB 

JSR 

BITB 

3NI 



5P 



•• .iSP) 

PC.iTYPEC 

•7.$CHARCN"' 

2S 



;:MESADR IS FIRST ADDRESS OF AN ASCIZ ST«J:nG 



IS THERE A TERMINAL' 

IF NO TERMINAL 



HAL 
LEAVE 
SAVE RO 

GET ADDRESS OF ASCIZ STRING 

PUSH CHARACTER TO BE TYPED ONTC S'h.K 

RESTORE RO 
ADJUST RETURN PC 
RETURN 

BRANCH IF <HT> 

: BRANCH IF NOT ':RLF> 

;POP v'CR>aF> EOUIV 
:TYPE A CR AND LF 

CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER^ .^^ , 

Is IT TIME FOR FILLER CHARS.' 

IF NO GO GET NEXT CHAR. 

GET • OF FILLER CHARS. NEEDEC 

AND THE NULL CHAR. ^ , 

DOES A NULL NEEC TC BE 'tCEZ' 

BR IF NO— GO POP THE NUL^ CF ='i- 

GO TYPE A NULL . 

DO NOT COUNT AS A COwNT 

lOOP 



REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TOO STOP 

hp SPACE OFF S'ACK 
GET NEXT ChAOACTER 



2558 
25fal 



2Sb7 
3568 
SSbS 
257C 
a57i 
2572 
2573 
257H 
357S 
2S7b 
2577 
2578 
2579 

358C 
2581 
2582 
2563 
2584 
2585 
253fc 

2588 
258S 
=5^C 
25=il 
25'92 
25S3 
259M 
2595 
25% 
2597 
2S98 
2S99 
2bOG 
2bCl 
2S02 

2t>0M 
2605 



Oil: TE5' 1 



007344 
007360 

mm 

007374 



M740fc 
307410 
007412 



007414 
207414 
007416 
007420 
007422 
007424 
007426 
007432 
007436 
007440 
007442 
M7450 
007452 
0C7456 
007462 
007464 
007470 
0C7472 
007M74 
00747b 
0C75M 
M7502 




10 
M7512 

007524 
3D753C 



777 171b00 



000002 
000015 

007410 
000012 




00040b 

105227 
000000 
300207 



010046 
010146 
010246 
010346 
010546 
G12746 
C16605 
100004 
005405 
112766 
005000 
012703 
112723 
005002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 

mi 

100407 
106316 
10 

052702 
052702 



171572 
000002 



02020C 
000020 



000055 OOQOC: 



007630 
000040 

007620 



000001 
OOOObC 
020040 



177 



ITYPEC: T^TB 
nOVB 



1046. Ob-JUN- 



Ku4 



14:40 PPtiE 49 



000002 IS: 



BR 

INCB 
SCHARCNT:.UORO 
STYPEX: RTS 



Itypec 

2(SP),aiTPB 
•CR.2(SP) 

icHARCNT 

itypex 

(PC)* 
0 

PC 



:UflIT UNML PRINTER 1= P^EAC-' 

LOAD CHAR TO BE TYPEC IN'C Dm'A 
IS CHARACTER A CARRIAGE RE''-R'^' 

?fi^-SLfAR"?HARACTER CCUM^ 

fknW '''' ''''' 
COUNT THE CHARACTER 
CHARACTER COUNT S'OPniE 



.SBTT. CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

•♦«»###♦#*#»♦*»»##*#*#*»*»*»♦»»»»«#««»»»###♦♦♦»«##«#♦**#♦#♦♦♦♦♦♦ 

iTHlS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DICI' 
♦SIGNED DECiriAL (ASCII) NUMBER AND "YPE IT. DEPENDING ON UHETrtEP ^< 
♦NUflBER IS POSITIVE OR NEGATIVE A SPACE QR A "INULalil? ^^I^l- ,9L'^^" 
tBEFORE THE FIRST DIGIT OrTHE NUMBER. LEADING ZEROS UI.L aL*4HY5 3E 
♦REPLACED WITH SPACES. 



*CAL^: 

♦ NOV 

# TYPDS 



J'YPOS: 



IS: 



25: 
3S: 



4S: 



^9 • 



6S: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BPc 
NEG 
MCVB 

:lr 

MOV 

MOVB 

CLR 

MOV 

SUB 

BLT 

INC 

BP 

ADD 

'ST 

BMI 

hSLB 

BCC 

MOVB 

BIS 

SIS 



fiUM.-iSP) 



RO,- 5P' 

Pl.-iSP' 

R2.-.SP. 

R3.-{SP) 

R5.-(SP> 

•20i00,- SP^ 

20(5p>!R5 

IS 

P5 

I'-. llSP) 
RC 

•$DBLK.R3 

•■ ..p5)* 

R2 

5DTBLCR0 .e. 

R1.R5 

4S 

R2 

31 

Rl.fiS 
R2 

Hp. 

71 

(SP) 
6S 

l.SPK-lvP3. 
i' .»2 



;;PLT THE BINARV NUMBER ON ""HE 5'h:. 
;:G0 TC THE ROUTINE 



PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACi< 

PJSH R5 ON STACK 

SET BLANK SWITCH ANC SIGN 

GE" THE INPUT NUMBER 

BP IF INPUT IS POS. 

MAKE THE BIM«RY NUMBER =05 . 

MAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER ''C A 3^mN^ 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGI' B'' 1 

ADD BACK THE CONSTAN" 
CHECK IF BCD DIGITrQ 

BR IF YES 
MSD" 

BR IF NO 

YES—SET THE SIGN 

MARE THE BCD 01 GI"^ ASCII 

MAKE r A SPACE IF A.«!£i;:' A :: 



l04 



2bl5 

2b.7 

2bl<5 
?£>20 

2623 
26?H 

2fa25 
2&2S 
2b27 
2S28 
2b2S 
2b30 



2b33 

2b3t> 
2fe37 
2b38 
2b3S 
26M0 

2bH3 
2644 
S45 
2b% 
2b47 
2b4S 
2649 
2850 
2fc51 
2b52 
2b53 
2654 
2b55 
2b5b 
2b57 
2b58 

sbsq 

2bb0 
2bbl 
2bb2 
2bb3 
2b64 
2bbE 
2bbb 
2bb7 
2bbe 



X^53M 1.2223 

00'53b 0C5720 

0C7540 020Q27 000012 

7544 QQ274b 

754b 003002 

007550 010502 

007552 000754 

75b0 
75bb 
007570 
007572 
007574 
0Q757b 
007b00 
007b02 
7b0b 
17b 14 



/ / / 1 / . 



•7fe 



i 5572b 
100003 
llbbb3 1 
105C13 
0l2bO5 
0l2b03 
012b02 
012bCl 
0l2bOG 

104401 007b3D 
01 bbbb a000C2 000004 
0l2blb 
007b lb 000002 

887^ 8?17iS 

0C7b24 000144 

007b2b 000012 

007530 000004 



CONVER' BI^PRT 



10VB 

TST 

CflP 

BLT 

BGT 

flOV 

BR 

TSTB 
BPL 

novB 

CLRB 

MOV 

flOV 

F10V 

FlOV 

MOV 

nc\ 
nov 

RTT 

i888°- 

100. 

10. 

.BLKU 



3fa-JUN-77 14:40 PftiE 5C 
) DECI1PL AMD TYPE ROUTINE 



St: 



R2.(R3 

(R6^* 

RO.IIO 



R5.R2 
bS 

(SPj* 
9S 

-1(SP).-2:R3) 

(R3) 

iSPl+,R5 

(SP)*,R3 

iSP)+.R2 

(SP)*.R1 

iSP)*,RO 

.SDBLK 

S(SP).4(SPl 

(SP)+.(SP 



PUT THIS CHfiRftCTEP 
JUST INCREMENTING 
CHECK THE TftBLE INDEX 
GO 00 THE NEXT Dl&r 
GO TO EXIT 
GET THE LSD 
GO CftfiNGE TO ASCII 
WAS THE LSD THE FIRS' 
BR IF NO 

YES— SET THE SIGN FOP 
SET THE TERMINATOR 
POP STACK INTO R5 
INTO R3 
INTO R2 
INTO Rl 
INTO RC 
THE NUMBER 



IN THE :-'P. 



non-zep: 

'/PiNi 



POP STACK 
POP STACK 
POP STACK 
POP STACK 
NOU TYPE 



iD-^BL: 



JDB^K: 



ADJUST THE STACK 



:: RETURN TO JSEP 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

♦THIS ROUTINE IS USED TO CHANGE A Ib-BIT BINARY NUMBER TO A b-OIS 
♦OCTAL (ASCII) NUMBER AND TYPE IT. , « 

♦ITYPOS — ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF OIGI'S 
♦CALL: 



NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=l TO b FOR NUMBER OF DIGFS ''O 
M=l OR 0 

;;1=TYPE LEADING ZEROS 
0=SUPPRESS LEADING ZEROS 



♦ MOV NUH.-lSP) 

♦ TYPOS 

♦ .BYTE N 

♦ .BYTE M 
♦ 
♦ 

♦STYPON ENTER HERE T: TYPE OU^ WITH THE SAME PARAMETERS AS '-'E 

♦STYPOS OR JTYPOC 
♦CALL* 

♦ ' MOV NUH.-^SP) ;; NUMBER TO BE ^YPED 

♦ TYPON i-CALL FOR T>PEOUT 

♦STYPOC — ENTER HERE FOR TYPEOUT OF A lb BIT NUMBER 

♦''ALL ■ 

♦" ' MOV NUM,-(SPj ;; NUMBER to be typed 

♦ TYPOC : I CALL FOR TYPEOUT 



0C7b40 Ol7b4b 000000 

007b44 llbb37 000001 0l20b3 

007b52 Il2b37 010065 

007b5b 062716 000002 

X7b62 000406 



STYPOS: MOV 
MOVB 
MOVB 

add 

BP 



a(SP).-(£P) 

l(SP).iOFlLL 
(SP;*.J0H0DE+1 

ST'iPQN 



: PICKUP THE MODE 
LOAD ZERO FILL SWITCH 
; NUMBER OF DIGITS '0 'YPE 
: ADJUST RETURN ADDRESS 



R>^U 3651; LOGIC TES"' 1 



BINflPY TO OCTftL 



Ofa-JUN-77 ^M:MO 
ifiSCII) ftND ^>PE 



2t)7M 
cb75 
2fe7b 
2677 
2878 
2b7q 
EbSO 

a&si 

2E>83 

2fe8M 

SbSS 

2b86 

2b87 

2b88 

2b99 

2b90 

2b91 

2b«32 

2b93 

2b94 

2b'35 

2b% 

2b97 

2b98 

2b9g 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

270<3 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

27ig 

2720 
2721 
2722 
2723 
2724 



007710 

007712 

007714 

007720 

007722 

007726 

007732 

007736 

007742 

007744 

007746 

007750 

007752 

007754 

007756 

007760 

007762 

007766 

007770 

007774 

007776 

OlOOOG 

010002 

010004 

010010 

010014 

010020 

010024 

010030 

010032 

010034 

010036 

010040 

010042 

010044 

0100% 

010054 

01005b 

010060 

010061 

010062 

010063 

010064 



112737 
112737 

010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 
005204 
052703 
052703 
110337 
104401 
105337 
003347 
002402 
005204 
000744 
012605 
012604 
012603 
016666 
01261b 
000002 
000 
000 
000 
000 
000000 



000005 



OlOObS 

OOOOOb 
0100b4 
010063 
000012 



010064 
177770 



000060 
000040 
010060 
010060 
010062 



mi 

010062 



000002 000004 



STYPOC: 
ITYPON: 



IS: 
2i: 



3S: 



45: 
5S: 



bS: 



BS: 



50CNT: 

SOFILL: 

SOnODE: 



flQV 
flOVI 

flQVB 

•10V 

flOV 

MOV 

flOVB 

NEG 

ADD 

MOVB 

novB 

flOV 

CLR 

ROL 

BR 

ROL 

ROL 

ROL 

flOV 

ROL 

DECB 

BPL 

BIC 

BNE 

TST 

BEQ 

INC 

BIS 

BIS 

novB 

TYPE 

DECB 

BGT 

BLT 

INC 

BR 

NOV 

flOV 

nov 

NOV 

nov 

RTI 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.UORD 



R4,-(SP) 
R5,-(SP) 
10(hODE*I.RM 
R4 

Ib.RH 

RM.lOflODE 

J0^ILL.R4 

12(SPJ,R5 

R3 

P5 

3i 

R5 

R5 

R5 

R5,R3 
R3 

JOnODE 
75 

1177770, R3 
45 

R4 
55 
R4 

«'0.R3 
I' .R3 
R3.65 

JOCNT 

25 

b5 

R4 

25 

(SP)+.R5 

(SP)+.R4 

(SP)*.R3 

2(SP),4(SPj 

(SP)*.{SP) 

0 
0 
0 
0 
0 



ITERATION COUNT 



56 T THE 
SET FOR 

55^ 

sftvE R3 
SAVE R4 
SAVE R5 

GET THE NUMBER OF DH 



ITS TO TfPE 



SUBTRACT IT FOR MAX. AL^OUEC 
SAVE IT FOR USE 
GET THE ZERO FILL SUITCH 
PICKUP THE INPUT NUMBER 
CLEAR THE OUTPUT WORD 
ROTATE MSB INTO "C" 
GO 00 MSB 
FORM THIS DIGIT 



GET LSB OF THIS Dlil^ 
TYPE THIS DIGIT' 
BR IF NO 
G£^ RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0' 
BR IF YES 

DON'T SUPPRESS ANYMORE 2' 5 
MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT mLPEAS- 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT BY 1 
BR IF MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN"^ h B.^Nk 
GO 00 THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 



.SBTTL TRAP DECODER 



4thIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 

*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

«0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
*G0 TO THAT ROUTINE. 



d:rkj-e, rkh bmsic logic test i 

:RkJE.P11 l<9-flPR-77 09:14 



nfiCYii 30 1 10Mb J 

TRAP DECODER 



Ob-JUN-77 14:40 



PfiGE 52 



272b 

2727 

2728 

272g 

2730 

2731 

2732 

2733 

273S 

2735 

2736 

2737 

2738 

2739 

27M0 

2741 

2742 

2743 

2744 

2745 

274b 

2747 

2748 

274S 

2750 

2751 

2752 

2753 

2754 

2755 

275b 

2757 

2758 

275S 

27b0 

27b 1 

27b2 

27b3 

27b4 

27b5 

27bb 

27b7 

27b8 

27bg 

2770 

2771 

2772 

2773 

2774 

2775 

277b 

2777 

2778 

2779 

£780 



OlOObb 
010070 
010074 
01007b 
010100 
010102 
01010b 



010110 
010112 
010120 



01004b 

OlbbOO 000002 
005740 
111000 
00b300 

OlbOOO 010122 
000200 



011b4b 

Olbbbb 000004 000002 
0C0002 



JTRflP: MOV RO.-(SPj 

MOV 2(§P).R0 

TST -(RO) 

MOVB iROJ.RO 

ASL RO 

MOV JTRPflD(RO),RO 

RTS RO 



;SflVE RQ 

;GET TRAP ADDRESS 

; BACKUP BY 2 

;GET RIGHT BYTE OF TRAP 

; POSIT ION FOP INDEXING 

: INDEX TO TABLE 

;G0 TO ROUTINE 



::THIS IS USE TO HANDLE THE "CETPRI" MACRO 



JTRAP2: MOV 
MOV 
RTI 



(SP),-(SP) 
4(SP).2(SP) 



;MOVE THE PC DOWN 
;MOVE THE PSM DOWN 
RESTORE THE PSM 



010122 
010124 
01012b 
010130 
010132 
010134 



010140 
010142 
010144 

01014b 

010150 

010152 



010154 
0101&2 
010170 
010172 
010174 
01017b 
010200 
010202 
010204 
010210 



SBTTL TRAP TABLE 



*THIS THdLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
«BY THE "TRAP" INSTRUCTION. 



010110 
007174 
007bb4 
007b40 
007700 
007414 



iTRPAD: 



ROUTINE 

.WORD 

STYPE 

JTYPOC 

JTYPOS 

JTYPON 

JTYPDS 



STRAP2 

;;CALL=TYPE 
;;CALL=TYPOC 
;CALL=TYPOS 
; ;CALL=TYPON 
:;CALL=TYPDS 



TRAP+K 104401) 
TRAP+2( 104402) 
TRAP+3( 104403) 
TRAP+4 0 04404) 
TRAP+5( 104405) 



TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (UITH LEADING ZEROS' 
TYPE OCTAL NUMBER (NO LEADING ZEROS; 
TYPE OCTAL NUMBER (AS PER LAST CAL..; 
TYPE DECIMAL NUMBER (WITH SIGN: 



01013b 00b470 



00b420 
00b702 
007022 

00551b 

005534 

005474 



012737 010320 000024 

012737 000340 00002b 

01004b 

01014b 

01024b 

01034b 

01044b 

01054b 

01774b 170730 
010b37 010324 



SGTSWR ;;CALL=GTSUR TRAP+b( 10440b) GET SOFT-SUR SETTING 

JCKSWR ;:CALL=CKSMR TRAP'»-7( 104407) TEST FOR CHANGE IN SOFT-SiJR 
JRDCHR :;CALL=RDCHR TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 
JRDLIN ;;CALL=RDLIN TRAP+1 1(104411) TTY TYPEIN STRING ROUTINE 

CN.RST ;;CALL=CNT. RESET TRAP+12( 104412) CONTROL RESET ROUTINE 

CN.RDY ;;CALL=CNT.RDY TRAP+ISC 104413) WAIT FOR CNTRL RDY TO SET 

DELA.Y ;:CALL=DELAY TRAP*14( 104414) TIME DELAY ROUTINE 

.S8TTL POWER DOWN AND UP ROUTINES ^ 

i^iOWER DOWN ROUTINE 



iPWRDN: MOV •SILLUP.atPWRVEC 

MOV •340,aiPWRVEC+2 

MOV RO,-tSP) 

MOV Rl -(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV R4,-(SP) 

MOV R5,-(SP) 

MOV aSWR.-(SPi 

MOV SP.lSAVRb 



:SET 
f>RIO: 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
SAVE 



FOR 

RO 
Rl 
RS 
R3 
R4 
Rb 

aswR 

SP 



FAST UP 

ON STACK 
OH STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 



c-::-::pv:-e. «?ku basic logi: tes' i 







Qi2''37 


010226 


000024 




012222 


000000 






Ci322M 


000776 






2785 










2796 
2787 


















2788 


010226 


012737 


010320 


300024 


2799 


010234 


013706 


010324 




27SC 


0102H0 


005037 


010324 




2791 


01024m 


005237 


010324 




=792 


010250 


001375 






2793 


010252 


012677 


170662 




279M 


010256 


012605 






2795 


010260 


01260M 






27% 


010262 


012{>03 






2797 


01026M 


012602 






2798 


010266 


012601 






2799 


010270 


012600 






2800 


010272 


012737 


010154 
00C34C 


000024 


2801 


010300 


012737 


000026 


2802 


010306 


lOHHCl 






2803 


010310 


010326 






280H 


010312 


012716 






2805 


01031M 


002316 






280b 


010316 


000002 










nnnnnn 






2808 


010322 


000776 






280S 

28:: 


01032H 


OOOOOC 






010326 


005015 


04752C 


042527 


2911 


01 0334 


XC122 






2912 










2913 










291'4 










2815 
2Bl6 


















2817 










2818 


210336 
01034H 


04H52M 


042515 


047440 


2819 


052125 


047440 


020116 


2820 


010352 


045522 


030461 


051040 


2621 


010360 


043505 


051511 


042524 


2622 


010366 


000122 






2823 










282M 


010370 


042522 


044507 


052123 


2825 


010376 


051105 


047040 


052117 


262fc 


OlOHOH 


041440 


042514 


0511C1 


2627 


010M12 


042105 


000 




2628 










2629 


010415 


12c 


041513 
:-47S22 


020123 


263C 


010H22 


051105 


000122 


2631 










2632 


010H30 


045522 


051503 


042440 


2633 


010436 


051122 


051117 


047455 


283H 


010H4M 


020116 


051127 


052111 


2635 
2S3t 


C10M52 


047111 


020107 


042522 


C1046C 

:i04bc 


042101 


047440 


046116 


2S27 


020131 


044502 


05152'^ 



nflCYll 30.1046 - 06-JLIN-77 
POUER DOUh AND UP ROUTINES 



GQ5 

14:40 



PAGE 53 



nov 
8R 



•SPURUP.aiPWRVEC ::SET UP VECTOR 
.-2 ;;HANG UP 



••»»»##»»»»»»♦»»»»#####»♦#«««♦**»#*#»»##»####»*♦»»####*»####♦♦♦♦ 

:^OUER UP ROUTItC 



tPURUP: 



IS: 



SPURflG: 

SPURflO: 

SILLUP: 

S5AVR6: 
SPOUER: 



nov 
nov 
CLR 
INC 
BNE 

nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 

TYPE 

.UORD 

nov 

.UORO 

RTI 

HALT 

eR 

0 

.flSCIZ 



•SILLUP.SlPURVEC 
SSRVR6.SP 
S50VR6 
S5.')VR6 
IS 

(SPH.asuR 

(SPH.RS 
(SP)+.P4 
(SPH,R3 
(SPH.R2 
(SP)*,R1 
(SP)+.RO 

•SPURfiN.atPURVEC 
•340,aiPURVEC+2 

SPOUER 

(PC)+.(SP1 
PFSTRt 



.-2 

'15>< 12 > "POUER" 



:SET FOR FfiST DOWN 
GET SP 

UAIT LOOP FOR THE TTY 
UflIT FOR THE INC 
OF UORD 
POP STRCK 
POP STRCK 
POP STOCK 
STOCK 
STOCK 
STOCK 
STOCK 



POP 
POP 
POP 
POP 

^RIO 



INTO asuR 
INTO RS 
INTO R4 
INTO R3 
INTO R2 
INTO Rl 
INTO RO 
UP THE POUER DOUN VEC 
7 



ftEPORT THE POUER FAILURE 
; POUER FOIL HESSOGE POINTER 
; RESTART OT PFSTRT 
; RESTART AOORESS 

:THE POUER UP SEQUENCE UfiS S'flP' 
: BEFORE THE POUER OOuN JAS 
:PUT THE SP HERE 



Eni: 



.EVEN 

: ERROR NESSAGES 

.5BTTL ERROR ttESSAGES 

• ASCIZ ^TlflE OUT ON RKll REilS'ER 



En2: .ASCir REGISTER NO"' CLEARED 



En3: . ASCIZ 'PKCS ERROR' 

En4: .ASCIZ -RCCS EPRCR-CN JPI'INi »£^C CM- sI'S 



1C-:i-DZRkJ-E. RKU BASIC LOGIC TES" I 



2938 
283<3 
294C 
28m: 
28S2 
28M3 
?9SM 
29H5 

29S7 
2SHB 

28SC 
3851 
2852 
2853 
285M 
2955 
285b 
2957 
2858 
295S 

2g&c 
28&: 

2962 
2963 
2964 
2865 
2966 
2967 
2966 
296? 
287C 
2871 
2872 
2873 
287H 
2975 
2S7b 
2877 
2879 
297g 
298C 
2961 
2992 
2883 
298S 
2885 
2996 
2997 
2998 
298S 
2890 
28«: 



01CH7H 

OlOMTS 
010502 
C10510 
010516 
01QS2H 

010531 
010536 
OlOSHH 
010552 
010560 
010566 
01057M 
010602 

010607 
01061S 
010622 
0106X 
010636 
01064H 
010652 

010656 
010664 
010672 
010700 

010703 
010710 



010716 
C1D724 

010731 
010736 
010744 
010752 
010760 
010766 

013773 
DliOOO 

OilOOb 
011014 
011022 
011030 
01103b 

011042 
CilOSC 



000 

102 
044516 
020104 
046103 
045522 



051C 
042040 
020124 
020122 
020054 
052105 
043447 

103 
051040 
042111 
042523 
042524 
051124 
042523 

042522 
051105 
041440 
042105 

122 
051105 



045522 
051122 

103 
051040 
042040 
020124 
020122 
052123 

122 
D51105 

052502 
052111 
023516 
020122 
052123 

042101 
Q4-»522 



051525 
020124 
047516 
040505 
051503 

052116 
051505 
042111 
0%103 
045522 
047117 
047111 
023517 

052116 
054504 
023516 
020124 
020122 
020114 
000124 

044507 
047040 
042514 
000 

053513 
047522 



040502 
051117 

052116 
051505 
042111 
046103 
042522 
051105 

042113 
047522 

020123 
042040 
020124 
042522 
000122 

051104 
043516 
051117 



044440 
044504 
020124 
020122 
000 

046122 
052105 
023516 
040505 
051503 
051440 
020107 
000 

046122 
042040 
020124 
043101 
047103 
042522 



052123 
052117 
051101 



020103 
000122 



042440 
000 

0%122 
052105 
023516 
040505 
044507 
000 

C20101 
000122 

047111 
042111 
046101 
044507 



051505 

0424'HG 

052C55 



nftOii 30 V 1046- 
ERROR HESShGES 



Er5: .flsci: 



CQ5 

06-JUN-77 14:40 PfliE 54 



BUS INIT DID Nw' CLEAR RKCS/ 



E16: .flSCIZ 'CNTRL RESET DIDN'T ClEAR PRCS. ON SETING 



.ASci: 



:nTRL ROY DIDN'T SE^ AFTER CNTR- RESE' 



EfllO: 



.ASCII /REGISTER NOT CLEARED' 



Emi: .ASCIZ /RKUC ERROR/ 



Em3: 
E«14: 



. ASCIZ 
.ASCIZ 



/RKBA ERROR' 



/CNTRL RESET DIDN'T CLEAR REGISTER 



Ei:5: .ASCIZ 
EP17: .ASCIZ 



l»22: .ASCI 7 



RKDA ERROR' 



•BUS INIT DIDN'T CLR REGISTR' 



h00RESSIN(; ERROR-TRIED TO ADDRESS RE^l. 



005 



■«:-::-d:rk:-e. hmi BfiSic logic test i 



2910 
2Sn 
2912 
2913 
291M 
2915 
291b 
2917 
29:8 
2919 
2920 
2921 
2922 
2923 
2924 
292S 
2926 
I? 



OllObM 

8!ii 

QUI 
C11114 
011122 



3b 




01115b 

"111 
111 

oir, 
01 :20b 



8 



011212 
01l|gi 

oiiSb 

01123H 
011242 
0112S0 
01125b 
Oll2bH 

01l2bb 
011274 
011302 
011310 
01131b 

011321 
01132b 
C11334 
011342 
011350 
01135b 
0113b4 

0ll3b5 
011372 
011400 
01140b 
01IH14 
011422 
011430 
01143b 

011443 
211450 

01 :45b 
::i4b4 
:::47c 



020124 
000 

02oii4 
020122 
046040 
052131 



045522 
053517 
000105 



044510 
052131 

051101 
020123 
023505 
047101 
051047 
000047 

04050b 
052040 
040505 
043505 
023505 

122 
0%101 
020104 
042514 
020107 
041055 

000 

124 
052040 
040505 
043505 
0234bl 
047101 
051047 
052131 

125 

041505 

04S52E 

0521 lb 
nc= • ?- 



044107 
000105 



Q510H0 
041047 
020054 
042507 
043505 



0%111 
020117 
020122 
041055 
000 

041513 
042524 
047117 
051101 
051047 
052131 



044522 
020117 
020122 
041055 
020054 
042507 
043505 
0234b2 

04251b 
042524 
Q304bl 
051105 
OOC 



8^ 

051503 
041040 




041513 
052131 
044103 
020104 
051511 



042105 
0%1Q3 
051047 
052131 



020123 
042522 
041440 
047111 
043505 
023505 



042105 
04bl03 
051047 
052131 
044103 
020104 
041055 
000 

050130 
02C104 
044440 
052522 



fIftCYil 30aO%J Ob-JUN-77 m:»40 PAGE 55 
ERROR nCSSAGES 



En22: .ASCIZ DIDN'T CLEAR RKCS LOU BYTE' 



En23: 



En24: 



.flSCIZ DION-" CLEAR RKCS HIGH BYTE> 



.ftSCIZ /TRIED TO CLEAR RKCS 'BYTE*. CHANGED 'RCGIB- 



En25: 



.ASCIZ FAILED TO CLEAR 'REG-B.^E' 



.flSCIZ -RKCS ALTERED ON CLEAPINi 'REi-BY'^E- 



, ASCIZ TRIED '0 CLEAR 'REG-BYTl-. CHANGED -REG-av 



£H43: .HsCIZ -JNEXPECTED RKU INTERRUP"^ 



2952 

295: 

2952 

2%3 

255-I 

2955 

295b 

2957 

2958 

2959 

29b0 

29b i 

29b2 

2%3 

2%M 

29b5 

29bb 

2%7 

2%e 

29b9 

2972 

297: 

2972 

2973 

2974 

2975 

297b 

2977 

2979 

2979 

2980 

2981 

2982 

2983 

298*4 

2965 

298b 

2987 

2988 

2989 

2990 

2991 

2992 

2992 

2994 

2995 

299b 

2997 

2998 

2999 

200C 

30C1 

20C2 

20C5 



B ' • 


9k il BhS 
:9-fiPR-"" 


T - •N- » - 

29:14 


: 


ImC'iI: 32vi04b. 
ERROR lESSflGES 


E05 

Ob-JJN-7" 14:42 PniE sfe 




c::-«"b 








.EVEN 
.SBT'L 


ERROR DA^A POIN'^EPS 


ClUTb 


30111b 


201 lb2 


OOOOOC 


C^l: 


.WORD 


SERRPC.SREGC.O 


011504 
011512 


xi::fe 
ooocoo 


001 lb2 


321 lb4 


DT2: 


.UCRC 


lERRPC.SREGO.SREul.O 


0:1514 
011522 


OClllb 
001 Ibb 


00:ib2 
001170 


001 :b4 
oooooc 


0^20: 


.UORD 


SERRPC . IRE(^ . IREGl . iP£(iZ . SPEa3 . 2 


0i:530 


Xlllb 


oooooc 




DT21: 


.UORD 


SERRPC.O 


011534 
011542 


Xlllb 
001 Ibb 


2011b2 
000000 


QClibt 


0T2&: 


.UORC 
.SBTTw 


SERRPC . SREGC . SREGl . IRE^ . 2 
ERROR HEADERS 


CI 154b 
011554 
:il5b2 


220040 
051040 
042104 


041520 
043505 
000122 


020042 
040455 


DHl: 


.ASCIZ 


/ PC REG-ADDR 


CllSbb 
011574 
011b02 
OllblO 


020040 
051040 
020104 
041505 


041520 
043505 
020040 
04212b 


020040 
042101 
051040 

000 


DH2: 


.ASCIZ 


K RECACC RE:vD 


OllblS 
011b22 
0llb30 
OllbGb 


040 
020040 
052103 
041505 


050040 
042440 
020040 
04212b 


020103 
05C130 
051040 
000 


0H4: 


.hsci: 


PC EXPCT RECvD 


Ollb43 
OllbSO 
OUbSb 
Cllbb4 


040 
020040 
042524 
040505 


050040 
053440 
020040 
000104 


020103 
047522 
051040 


DH2: 


.ASCIZ 


PC WROTE READ 


oi:b7o 

OUbTb 
011704 


020040 
020040 
000104 


041520 
042522 


0200^0 
053103 


uH5: 


.asciz 


PC REC'^' 


01170b 
011714 
011722 
011730 


020040 
020040 
020105 
042101 


041520 
051127 
020040 
000 


020040 
052117 
042522 


DM1 1: 




. PC UROTE READ 


011733 


040 


050040 


000103 


Dri21: 


.ASCIZ 


/ PC- 


211740 
2ll74fc 
01 1754 
2il7b2 


020040 
02C040 
020040 
04350E 


041523 
042522 
020040 
C200b2 


020040 
030507 
051043 
020242 


DH20! 


.hSCIZ 


PC REGl PE12 .PEai> 



FOB 

J;.--:;=i?^--E.j§^i^!sSlc,LO«c TEST 1 ngcv::jo^a.b. *-Ji«-rr 14=mo p<«E 5' 



:«?►:£. p 

3006 
3X7 
3008 
3CCS 
3010 
3011 
3012 
3C13 
3014 
3015 
3216 
3C17 
3018 
32:<5 
3022 
3021 
3022 
3C23 
302H 
3025 
3026 
3027 
3028 
302S 
3C3C 
3031 
3032 
3033 
3fl3H 
3C35 
3Q3£: 
3037 
3038 
3C39 
30HC 
30h; 
3042 

2CM3 
20U4 

5"47 



ERROR HEADERS 



011770 
C1177fa 
C1200M 

012007 
012014 
012022 
012030 
01203b 
012044 
012052 
0120b0 

012061 
012066 
012074 
01210S 

012107 
012114 
012122 
012130 
CI2136 
012144 

012151 
012156 
012164 
012172 
012200 
012206 
012214 

C12221 
012226 
012234 
212242 
012250 
C12256 



051050 
02X40 
024462 

040 
020040 
042524 
0435(J5 
042522 
02012G 
051051 

000 

040 
020040 
054502 
041505 

040 
020040 
054502 
051503 
024040 
041505 

040 
020040 
052131 
041055 
031040 
052103 
041505 

040 
C2004C 
0S1503 
045522 
020040 

300 



043505 
051050 
000 

050040 
020040 
020040 
051511 
024507 
051050 
041505 



050040 
042522 
042524 
042126 

050040 
042522 
Q2012M 

042451 
051503 
042126 

050040 
051040 
020061 
052131 
042455 
031040 
042126 

050040 
020040 
020040 
051105 
045522 



024461 
043505 



020103 DHc4: 

054502 

051040 

024040 

054105 

043505 

042126 



020 1D3 DH25: 
026507 
051043 
000 

020103 DH26: 
026507 
02404C 
050130 
051051 
000 

020103 DH27: 
041055 
051040 
020062 
050130 
051055 
000 

020103 DH3C: 

045522 

020C4C 

020040 

0515C4 



.aSCIZ P: BVE regis (REi^EXP ^re&.rec/d^ 



.ASCI2 PC REG-BYTE RECVD' 



.«:iZ • PC REG-BYT CCS^EXP ICS.RECVD' 



.aSCir PC P-BYTl R-BYT2 2-CXPCT 2-KCVD 



o: mk:s r^ep hkos- 



.EX 



TflbLE 



Ob-JUN-: 



GG5 



a"»n - 

3:'32 : 

3:'33 = 

SI'OM = 

SI'QS : 

sro6 = 

5:'38 = 
3rC«3 = 
Sl^i = 
BITIO = 
BITli = 
3IT12 s 

sri3 = 
sn4 = 
e:ti5 = 

a»T? - 

s:t3 = 
2r-4 = 

SI'S = 
Bl'fc = 
= 

SITB = 
BIT9 = 
9PTVEC= 

:k5im = 
:nt.rd= 

:N7.R£= 

:n.roy 

CN.RST 

:= = 

CRLF s 
XISP = 
jELfiY = 
DEi-A.Y 

:h:i 

:h2 

:h2c 

:h25 
:^r2fc 

:»^27 
:-4 



002212 
0Cel2& 
0C3O01 
300001 
0CO002 
OCOOOM 
OOOGIO 
00002C 
OCOOMO 
30010C 
000200 
OOOMCO 
001000 

m 

OOMOOO 
010000 



04 
100000 
OOOOOH 

OOOCiO 
0C0C20 
OOOCMO 
000100 
00020C 
OOOMOO 
001000 
000014 
104407 
104413 
104412 
00S534 
00551b 
000015 
000200 
177570 
104414 
005474 
011546 
CI 170b 
0115bb 
011740 
011733 
01202* 
3l20bl 
012107 
012151 
011643 
312221 
DUblS 

:i:c70 
cci:42 



OISPRE 
OSUR = 

DTI 

DT2 

0T20 

DT21 

2'2b 

EriTVEC= 

Eni 
En:o 

EHll 
EM13 

Eni4 

EHiS 

Eni7 
En2 

Eri20 
E?12i 

EM2: 
En24 

Ett25 

Eri2b 

E?127 • 
Ef13 
En4 
Eri43 

Ens 
Enb 
En7 

ERRVEC= 
FTITLE 
CTSWR = 
GT3RC 
GT4RG 
HT = 
IOTVEC= 
LF = 
nSG3 
PFSTRT 
PIRC = 
PIRQVE= 
PRO = 
PRl = 
PR2 = 
PP2 = 
PR4 = 
PPS = 
PPb = 
PP7 = 
PS = 
PSU = 
PURVEC= 
RDCHP = 



000174 
17757C 
01147b 
011504 
011514 
0U530 
011534 
000030 
01033b 
OlObSb 
010703 
01071b 
010731 
010773 
Oil 00b 
010370 
011042 
011123 
OlUSb 
011212 
01l2bb 
011321 
0113&5 
010415 
010430 
011443 
010475 
010531 
010b07 
000004 
Q012b2 
10440b 
005434 
0054b0 
000011 
000020 
000012 
00121b 
00231b 
177772 
000240 
000000 
000040 
000 100 
000140 
000200 
000240 
QQ03C0 
000340 
17777b 
17777b 

0Qac2M 

104410 



RDwIN : 

9ESVEC: 

RKBA 

RKCS 

RKOA 

RKOB 

RkCS 

RKER 

RKPRI 

RKVEC 

RKkiC 

Rb : 

R7 : 

STACK = 
START 
STARTl 
5TKL»1T: 
SUR 
SUREG 
SUO • 
5U00 : 
SUOl : 
SU02 ■ 
5U03 : 
SW04 : 
SUOS : 
SUOb : 
5W07 : 
SUOS : 
5U0« : 
SWi : 
SUlO : 

sun : 

SU12 : 

SU13 : 

SUi4 : 

SUIS : 

SU2 : 

SU3 : 

SU4 : 

5U5 : 

sub ' 

SW7 : 
SUS : 
SU«3 : 

TBITVE: 
TIMER 
TIMOUT 
TKVEC : 
TPVEC : 
TRflPVE: 
TPTVEC: 
'S^l 



104411 

000010 
00125-4 
001250 
00125b 
00l2b0 
001244 
00124b 
00l2bb 
001270 
001252 
•/.00000b 
•/.000007 
001100 
001542 
002110 
177774 
001140 
000 17b 
00000 i 
000001 
OOOOQc 
000004 
: 000010 
: 000020 
000040 
000100 
000200 
00C40G 
001000 
000002 
002000 
004000 
010000 
020000 
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